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