Ошибка выполнения Runtime VB 800A01A8 Обязательный объект ошибки

Question

Я пытаюсь написать vbs для копирования последних измененных файлов в другое место. Сценарий идет как этот

Option Explicit 
Dim oFSO, oFolder, oFile 
Dim vSourcePaths ,vDestinationPaths 

vSourcePaths = "C:\xampp\htdocs\lgmsuploads" 
vDestinationPaths = "S:\LGMSUPLOADS" 

Set oFSO = CreateObject("Scripting.FileSystemObject") 
oFolder = oFSO.GetFolder(vSourcePaths) 

For Each oFile In oFolder.Files 
    If oFile.DateLastModified < DateAdd("h", -24, Now) Then 
     oFSO.CopyFile vSourcePaths & "\" & oFile.Name, vDestinationPaths & "\" & oFile.Name      
    End If 
Next 

Но это дает следующее сообщение об ошибке

Пожалуйста, помогите ...

Answer 1

Вы должны использовать Set заявление, чтобы назначить ссылку на объект переменной, как следует:

Set oFolder = oFSO.GetFolder(vSourcePaths) 

Однако, ваш скрипт скопирует файлы с oFile.DateLastModified 24 часа назад и раньше.