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 Char 3 "Требуется объект: 'objDestFile' Но objDestFile создан?

Answer 1

Вам необходимо использовать набор, например ::1001*

Set objDestFile = fso.GetFile(destFileName)