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 小时前和之前的文件。

VB 脚本运行时错误 800A01A8 需要错误对象

VB Script Runtime error 800A01A8 Error Object Required

vbscript

file-io

runtime-error