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)

但是，您的腳本將在24小時之前和之前使用oFile.DateLastModified復制文件。