Remove non-empty folders (Resolved)

[moinkhan]

RmDir and Kill don't seem to work..
No.. FSO and API please

[kleinma]

try this out

Private Sub Command1_Click()
    On Error GoTo eh:
    
    Kill "c:\testing\*.*"
    RmDir "c:\testing\"
    Exit Sub
    
eh:
    If Err.Number = 53 Then 'dir was empty
        Resume Next
    ElseIf Err.Number = 76 Then 'dir does not exist
        MsgBox "DIR HAS ALREADY BEEN DELETED"
    Else
        MsgBox Err.Description & Err.Number
    End If
End Sub

[moinkhan]

Ah!!! Great!!
Thankyou very much!!!
so nice of you

[kleinma]

always happy to help.. and actually write code that works