vba删除多级目录及其目录下文件的自定义函数

删除多级目录：如 call rmdirs("D:\test") 将删除此test目录下所有目录和文件。

Function RMDirs(Str As String) As Boolean
Rem RMdir的升级版本，根据目录地址删除最后文件夹及里面的文件
Rem 使用方法Call RMDirs("D:\test\test2\test3")
Rem if RMDirs("D:\test\test2\test3")=True then doSomething  else doOtherSomething
    Err.Clear
    On Error GoTo ele
    Dim fs, f
    If Len(Str) = 0 Then Exit Function
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(Str)
    f.Delete
    RMDirs = True   '删除多级目录成功
    Set fs = Nothing
    Set f = Nothing
    Exit Function
ele:
    RMDirs = False  '删除多级目录失败
    Set fs = Nothing
    Set f = Nothing
    'MsgBox Err.number & Err.Description
End Function

[本文转自仇朝权随笔_vba删除多级目录及其目录下文件的自定义函数](http://zawen.net/post/84.html)

♡♡♡转载请保留上面信息♡♡♡