habe mir ein Makro zusammengeschustert, welche Dateien älter als heute aus einem fest definierten Verzeichnis kopiert.
Jetzt möchte ich gerne noch weitere Verzeichnisse auslesen. Zwar könnte ich den code nun mehrfach kopieren und das Verzeichnis ändern, aber dass muss doch noch einfacher gehen oder? Kann mir da bitte jemand weiterhelfen?
1. Verzeichnis: "C:\Test\test1\"
2. Verzeichnis "D:\Test\"
3. Verzeichnis "D:\Test\abc/edf"
etc. bis zu 20 verschiedenen insgesamt
Gruß
Jan
Auszug aus dem Makro:
pfad = "C:\Test\test1\"
tmp = Dir(pfad & "*.xls*")
Do While tmp <> ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set fil = fso.getfile(pfad & tmp)
dat = fil.DateLastModified
If dat > Range("B1").Value Then
'Datei = fil
'dat1 = dat
FsyObjekt.copyfile fil, "C:\\Test\"
End If
tmp = Dir
Loop
End Sub