删除"F:\aa\"文件夹里面所有空文件夹
RmDir删除非空文件夹会报错,跳过它,正好用来实现这个目的
Private Sub Command1_Click()
On Error Resume Next
Dim s As String, sPath As String
sPath = "f:\aa\"
s = Dir(sPath, vbDirectory)
Do While (s <> "")
RmDir sPath & s
Debug.Print s
s = Dir
Loop
End Sub