Delete a folder

[Ivan F Moala]

something like this....

look up help on Key words

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