Delete a folder

[v_gyku]

I want to delete or destroy a folder which has one workbook in it.
How do i do it?

[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