Hier der komplette Code
Dim JAkt, MAkt, MMAkt, JOrdner, JJJJ, MOrdner, MMOrdner, Ordnerpfad, fso, file
'Aktuelles Jahr
JAkt = Year(Now)
MAkt = Month(Now)
'Aktueller Monat 2-Zeichen
MAkt = (DatePart("m",Now()))
If (MAkt <10) Then
MMAkt = CStr("0" & MAkt)
Else
MMAkt = CStr(MAkt)
End If...