PDA

View Full Version : [SOLVED] Delete a folder



v_gyku
09-13-2005, 10:24 PM
I want to delete or destroy a folder which has one workbook in it.
How do i do it?

Ivan F Moala
09-13-2005, 10:41 PM
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