I want to delete or destroy a folder which has one workbook in it.
How do i do it?
Printable View
I want to delete or destroy a folder which has one workbook in it.
How do i do it?
something like this....
look up help on Key words
Code:Sub RemoveDir_WithFiles()
Dim objFSO As Object
On Error GoTo DelErr
'// CAUTION: Will delete entire Folder NO PROMPT
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFolder "C:\Mydir", True
XitProperly:
Set objFSO = Nothing
Exit Sub
DelErr:
MsgBox "Error:=" & Err.Number & vbCr & Err.Description
Resume XitProperly
End Sub