Private Sub Command1_Click()
Dim FSO As New FileSystemObject
FSO.DeleteFolder Dir1.Path
End Sub
'必须先引用Microsoft Scripting Runtime类库
