Vbscript - DateLastModified所需的对象

Question

我真的不知道这里有什么问题。 我想创建一个VBScript，基本上检查两个文件夹的文件并比较每个的DateLastModified属性，然后将源文件复制到目标文件夹，如果DateLastModified的源文件比现有的新。

我有这样的代码：

Dim strSourceFolder, strDestFolder 
Dim fso, objFolder, colFiles 

strSourceFolder = "c:\users\user\desktop\Source\" 
strDestFolder = "c:\users\user\desktop\Dest\" 

Set fso = CreateObject("Scripting.FileSystemObject") 
Set objFolder = fso.GetFolder(strSourceFolder) 
Set colFiles = objFolder.Files 

For each objFile in colFiles 
    Dim DateModified 
    DateModified = objFile.DateLastModified 
    ReplaceIfNewer objFile, DateModified, strSourceFolder, strDestFolder 
Next 

Sub ReplaceIfNewer (sourceFile, DateModified, SourceFolder, DestFolder) 

    Const OVERWRITE_EXISTING = True 
    Dim fso, objFolder, colFiles, sourceFileName, destFileName 
    Dim DestDateModified, objDestFile 

    Set fso = CreateObject("Scripting.FileSystemObject") 

    sourceFileName = fso.GetFileName(sourceFile) 
    destFileName = DestFolder & sourceFileName 

    if fso.FileExists(destFileName) Then  
     objDestFile = fso.GetFile(destFileName)  
     DestDateModified = objDestFile.DateLastModified 

     msgbox "File last modified: " & DateModified 
     msgbox "New file last modified: " & DestDateModified 

    End if  


End Sub 

而我得到的错误：在第34行，需要的字符3“对象： 'objDestFile' 但objDestFile创建

Answer 1

你需要使用设置？例如：

Set objDestFile = fso.GetFile(destFileName)