Vbscript - Obiekt wymagany dla DateLastModified - data, vbscript, porównaj

Naprawdę nie wiem, co tu jest nie tak. Próbuję utworzyć vbscript, który zasadniczo sprawdza dwa foldery dla ich plików i porównuje atrybut DateLastModified każdego z nich, a następnie kopiuje pliki źródłowe do folderu docelowego, jeśli plik DateLastModified pliku źródłowego jest nowszy niż istniejący.

Mam ten kod:

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

I pojawia się błąd: W linii 34, Char 3 "Obiekt wymagany:" objDestFile " Ale jest obiekt objDestFile IS?

Odpowiedzi:

Musisz użyć zestawu np .:

Set objDestFile = fso.GetFile(destFileName)