用FSO Option Explicit
Private Sub Command1_Click()
Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") If fso.folderexists("C:\test") Then fso.DeleteFolder "C:\test" End If Set fso = Nothing End Sub