1 reply to this topic

[Superfreak3]

Here's a simple script I'm running, but it's erroring with a 1720:

Dim objFSO
   
Set objFSO = CreateObject("Scripting.FileSystemObject")

on error resume next

If objFSO.FolderExists("E:\AllData\") Then
       objFSO.DeleteFolder "E:\AllData\", True
end if

Set objFSO = Nothing


I commented out the 'on error resume next statement' to see the error.  I then used some message boxes to trace the error to the following statement:

objFSO.DeleteFolder "E:\AllData\", True  .

What can be wrong here?

Any help is good help!

[Philip2]

have you tried?
objFSO.DeleteFolder("E:\AllData", True)