VBScript复制DLL文件的指令结束

Question

我正在尝试编写一个DLL更新程序，该更新程序仅将一些已经存在的DLL文件的新版本复制到我的工作文件夹中。这只是为了在我的同事发布新版本时更新DLL。

这是我阅读一些教程后想到的代码。

Dim strSourceFolder, strDestFolder
strSourceFolder = "C:\Users\myName\Desktop\Win64"
strDestFolder = "C:\Program Files\Common Files\Company\Pruebaupdater"

For Each file In StrSourceFolder
    If File.Type = "dll" Then
        ReplaceIfNewer
    End If
Next

Sub ReplaceIfNewer (SourceFile, DestFolder)
    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
        **copy SourceFile** to SourceFolder
    End If
End Sub

当脚本到达复制功能时，我在第21行第20个字符处得到800A0401-预期的指令结束。在我所看到的每一段代码中，此复制功能都是正确的。

我的一个消息来源是this，并且在复制功能中没有注释，因此我认为这对他们有用。