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

作者:仇朝权 时间:24-06-10 阅读数:982人阅读

删除多级目录:如 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)

分享到:

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

发表评论