Private Sub Command1_Click()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.deletefolder App.Path & "\xxx"
End Sub