一个文件夹下有很多文件夹.有的是空文件夹有的是有文件的文件夹.有什么办法删除所有空的文件夹.有文件夹的文件夹保留

Question

一个文件夹下有很多文件夹.有的是空文件夹有的是有文件的文件夹.有什么办法删除所有空的文件夹.有文件夹的文件夹保留

Answer 1

用FSO去判断下里面有没有文件就可以啦

Answer 2

删除"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