3

我正在尝试设计这个脚本，该脚本应该用作许多用户的登录脚本的一部分。这个脚本基本上应该采用源文件夹和目标文件夹，因为基本上只是确保目标文件夹与源文件夹具有完全相同的内容。但仅当源文件的 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

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

4

2 回答 2

3

你的算法看起来不错。实际上，您需要使用 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

于 2010-05-14T08:06:26.980 回答
1

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

您可以使用FileSystemObject来执行实际的文件操作，只需查看：

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

于 2010-05-14T08:00:47.883 回答