Vbscript - objekt požadovaný pre DateLastModified - dátum, vbscript, porovnanie

Tu neviem, čo je zle. Snažím sa vytvoriť vbscript, ktorý v podstate kontroluje dva priečinky na ich súbory a porovnáva atribút DateLastModified každého a potom skopíruje zdrojové súbory do cieľového priečinka, ak je DateLastModified zdrojového súboru novší ako existujúci.

Mám tento kód:

Dim strSourceFolder, strDestFolder
Dim fso, objFolder, colFiles

strSourceFolder = "c:usersuserdesktopSource"
strDestFolder = "c:usersuserdesktopDest"

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

A zobrazí sa mi chyba: Na riadku 34, Char 3, Požadovaný objekt: "objDestFile" Ale objDestFile JE vytvorený?

odpovede:

Musíte použiť súpravu napr .:

Set objDestFile = fso.GetFile(destFileName)