一个文件夹下有很多文件夹.有的是空文件夹有的是有文件的文件夹.有什么办法删除所有空的文件夹.有文件夹的文件夹保留
一个文件夹下有很多文件夹.有的是空文件夹有的是有文件的文件夹.有什么办法删除所有空的文件夹.有文件夹的文件夹保留
[解决办法]
用FSO去判断下里面有没有文件就可以啦
[解决办法]
删除 "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
