Das Script unten sollte alle Dateien kopieren die älter sind als ein Tag. Das Script läuft durch ohne Fehler aber kopiert mir manchmal nicht alle und manchmal gar keine Dateien!
Hat da jemand ne Idee?
Dim fso, folder
Set fso = CreateObject("scripting.FileSystemObject")
fso.DeleteFile("D:\Backup\Batchprogramm\Save\*.*")
Set folder=fso.GetFolder("D:\Backup\Batchprogramm\Log\")
for each file in folder.Files
if file.datelastaccessed<=Now()-1 then
fso.CopyFile file.Path, "D:\Backup\Batchprogramm\Save\", False
end if
next
Danke schon mal im voraus...
Hat da jemand ne Idee?
Dim fso, folder
Set fso = CreateObject("scripting.FileSystemObject")
fso.DeleteFile("D:\Backup\Batchprogramm\Save\*.*")
Set folder=fso.GetFolder("D:\Backup\Batchprogramm\Log\")
for each file in folder.Files
if file.datelastaccessed<=Now()-1 then
fso.CopyFile file.Path, "D:\Backup\Batchprogramm\Save\", False
end if
next
Danke schon mal im voraus...