VB Script Runtime error 800A01A8 Error Object Required

Question

I am trying to write a vbs to copy the latest modified files to another location. The script goes like this

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

But this gives the following error

Error Message

Please help...

JosefZ · Accepted Answer · 2015-01-21 07:18:38Z

1

You should use Set statement to assign an object reference to a variable as follows:

Set oFolder = oFSO.GetFolder(vSourcePaths)

However, your script will copy files with oFile.DateLastModified 24 hours ago and before.

edited Jan 21, 2015 at 7:18

answered Jan 21, 2015 at 7:03

JosefZ

30.5k6 gold badges52 silver badges96 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Sujeesh Over a year ago

Exactly I have modified the condition so as to copy files of last 24 hours

Collectives™ on Stack Overflow

VB Script Runtime error 800A01A8 Error Object Required

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related