用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