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个文件。