Option Explicit
 
Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim fo As Folder
 
    Set fo = fso.GetFolder("c:\winnt\temp\test")
    Call fo.Delete(True)
    Set fo = Nothing
    Set fso = Nothing
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1