|
Hallo,
dann sollte es noch einfacher sein.
Ich nehme an, dass nur die ZIP-Datei(en) vom aktuellen Monat eingelesen werden sollen?
In dem Fall kann man leicht den Pfad zusammen setzen:
Function getPath() As String
getPath = "C:\Dateien\" & CStr(Year(Now())) & "\" & Format(Now, "MMMM") & "\"
End Function
Diese Funktion gibt den Pfad zum aktuellen Datum aus.
Falls jedoch ein Pfad zum beliebigen Datum gebraucht wird, kann dieser VBA-Code eingesetzt werden:
Function getPath(datDate As Date) As String
getPath = "C:\Dateien\" & CStr(Year(datDate)) & "\" & Format(datDate, "MMMM") & "\"
End Function
LG, BigBen
|