brodie1227
Vendor
Error: Wrong number of arguments or invalid property assignment: 'fso.DeleteFolder'
Code: 800A01C2
Here is the code. Thanks for the help.
Set fso=CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder
Set objFolder = FSO.GetFolder("c:\windows\temp")
For Each aFile In objFolder.Files
msgbox "going to delete " & aFile.Name
aFile.Delete
Next
Code: 800A01C2
Here is the code. Thanks for the help.
Set fso=CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder
Set objFolder = FSO.GetFolder("c:\windows\temp")
For Each aFile In objFolder.Files
msgbox "going to delete " & aFile.Name
aFile.Delete
Next