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比较，您似乎正在复制所有文件。

VBScript - 复制过去24小时内修改的文件

3 个答案: