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)