|
Hallo,
ich habe ein Skript, welches aus einem Hauptverzeichnis sämtliche Unterordner durchsucht und dort alle *.txt Dateien kopiert und in einen vorgegebenen Ordner kopiert. Nun habe ich das Problem das sich die Verzeichnisstruktur geändert hat.
Vorher hat das Skript aus dem Hauptordner alle SubOrdner durchsucht. Nun müsste das Skript Hauptordner -> SubOrdner -> SubOrdner durchsuchen.
Const FileTyp = "txt" 'Nur txt Dateien
Const LogFile = "\LastFile.log" 'Zeit der zuletzt erstellten Datei
Const CopyFolder = "E:\Shared Folders\Uebergabe\Saege\PP\" 'Pfad der Kopie-Dateien
Dim Fso, Path, SubFolder, File, Log, OldTime, NewTime
Set Fso = CreateObject("Scripting.FileSystemObject")
Path = Fso.GetParentFolderName(WScript.ScriptFullName)
OldTime = CDate("01.01.1980")
NewTime = CDate("01.01.1980")
For Each SubFolder In Fso.GetFolder(Path).SubFolders
Log = SubFolder & LogFile
If Fso.FileExists(Log) Then OldTime = CDate(Fso.OpenTextFile(Log).ReadLine)
For Each File In SubFolder.Files
If LCase(Fso.GetExtensionName(File.Name)) = LCase(FileTyp) Then
If File.DateCreated > NewTime Then NewTime = File.DateCreated
If File.DateCreated > OldTime Then Fso.CopyFile File.Path, CopyFolder
End If
Next
Set File = Fso.CreateTextFile(Log): File.WriteLine NewTime: File.Close
Next
|