VBScript - копирование файлов, измененных за последние 24 часа

Question

Я пытаюсь скопировать файлы из каталога, где дата последнего изменения находится в пределах 24 часов от текущей даты.Я использую подстановочный знак в пути к файлу, так как он меняется каждый день, когда я использую;

option explicit

dim fileSystem, folder, file
dim path 

path = "d:\x\logs"

Set fileSystem = CreateObject("Scripting.FileSystemObject")
Set folder = fileSystem.GetFolder(path)

for each file in folder.Files    


           If DateDiff("d", file.DateLastModified, Now) < 1 Then


   filesystem.CopyFile "d:\x\logs\apache_access_log-*", "d:\completed logs\"

        WScript.Echo file.Name & " last modified at " & file.DateLastModified
    end if
next

К сожалению, это похоже на копирование всех файлов, а не только недавно измененных.Кто-нибудь может указать мне правильное направление?

большое спасибо

Мартин.

Answer 1

Как насчет:

filesystem.CopyFile "d:\x\logs\" & file.name, "d:\completed logs\"

Answer 2

Изменить строку на:

filesystem.CopyFile file, "d:\completed logs\" 

Вы копировали каждый файл в каталоге, как только один файл соответствовал вашим критериям

Answer 3

Похоже, что вы копируете все файлы, если любой файл удовлетворяет сравнению DateDiff.