Vbscript - 如果比目标文件更新，则比较并复制文件夹中的文件答案

【问题标题】：Vbscript - Compare and copy files from folder if newer than destination filesVbscript - 如果比目标文件更新，则比较并复制文件夹中的文件
【发布时间】：2010-05-14 07:53:32
【问题描述】：

我正在尝试设计这个脚本，它应该用作许多用户的登录脚本的一部分。这个脚本基本上应该采用源文件夹和目标文件夹，因为基本上只是确保目标文件夹与源文件夹具有完全相同的内容。但仅当源文件的 datemodified 标记比目标文件更新时才复制。

我一直在想这个基本的伪代码，只是想确保它基本上是有效和可靠的。

Dim strSourceFolder, strDestFolder
strSourceFolder = "C:\Users\User\SourceFolder\"
strDestFolder = "C:\Users\User\DestFolder\"

For each file in StrSourceFolder
     ReplaceIfNewer (file, strDestFolder)
Next

Sub ReplaceIfNewer (SourceFile, DestFolder)

    Dim DateModifiedSourceFile, DateModifiedDestFile
    DateModifiedSourceFile = SourceFile.DateModified()
    DateModifiedDestFile = DestFolder & "\" & SourceFile.DateModified()

    If DateModifiedSourceFile < DateModifiedDestFile
        Copy SourceFile to SourceFolder
    End if

End Sub

这行得通吗？我不太确定它是如何做到的，但我可能会花一整天的时间来弄清楚它。但是这里的人通常都非常聪明，在您的帮助下，花费的时间会少很多:)

【问题讨论】：

如果目标文件丢失怎么办？

标签： vbscript copy compare last-modified datemodified

【解决方案1】：

您的算法看起来不错。实际上，您需要使用 FileSystemObject 获取文件，并检索它们各自的 DateLastModified 属性。您可以对两个日期执行 DateDiff 以比较哪个更早。

来自DevGuru的稍微修改的示例：

Dim filesys,demofile, date1, date2
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofile = filesys.GetFile("filename1")
date1 = demofile.DateLastModified
demofile = filesys.GetFile("filename2")
date2 = demofile.DateLastModified

If DateDiff("d", date1, date2) > 0 Then
    'date2 is more recent than date1, comparison by "day" ' ** Improvement **
End If

编辑：URL 拼写错误。

改进在评论中，“date1”和“date2”已被交换。 MSDN 文档说：如果 date1 指的是比 date2 晚的时间，则 DateDiff 函数返回一个负数。 http://msdn.microsoft.com/en-us/library/xhtyw595(v=vs.84).aspx

【讨论】：

这看起来很有希望 :) 我要试试看 :)

【解决方案2】：

您的代码看起来很合理。请注意只读文件等。

你可以使用FileSystemObject来做实际的文件操作，看看：

http://msdn.microsoft.com/en-us/library/6kxy1a51%28VS.85%29.aspx

【讨论】：