Try this then;
Sub RemoveDir_WithFiles()
Dim Fs As Object
On Error GoTo DelErr
'CAUTION: Will delete entire Folder NO PROMPT
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.DeleteFolder "C:mydir", True
Exit Sub
DelErr:
MsgBox Err.Number & vbCr & _
Err.Description
End Sub
Ivan