Fatal编程技术网
  • file-io/
  • File io 需要VB脚本运行时错误800A01A8错误对象

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

file-io vbscript

File io 需要VB脚本运行时错误800A01A8错误对象,file-io,vbscript,runtime-error,File Io,Vbscript,Runtime Error,我正在尝试编写vbs，以便将最新修改的文件复制到其他位置。剧本是这样的 Option Explicit Dim oFSO, oFolder, oFile Dim vSourcePaths ,vDestinationPaths vSourcePaths = "C:\xampp\htdocs\lgmsuploads" vDestinationPaths = "S:\LGMSUPLOADS" Set oFSO = CreateObject("Scripting.FileSystemObject")

我正在尝试编写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

选项显式
阴暗的，阴暗的，阴暗的
Dim vSourcePath、vDestinationPath
vSourcePaths=“C:\xampp\htdocs\lgmsuploads”
vdestinationpath=“S:\LGMSUPLOADS”
Set of so=CreateObject（“Scripting.FileSystemObject”）
oFolder=oFSO.GetFolder（vSourcePath）
对于oFolder.Files中的每个文件
如果oFile.DateLastModified
但这会产生以下错误

请帮助…

您应该使用
Set
语句为变量分配对象引用，如下所示：

Set oFolder = oFSO.GetFolder(vSourcePaths)
但是，您的脚本将在24小时前和之前使用file.DateLastModified的
复制文件。
确切地说，我已经修改了条件，以便复制过去24小时的文件