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)
♡♡♡转载请保留上面信息♡♡♡
上一篇:VBA自动创建多级目录
下一篇:vba二维数组多key稳定排序