工控软件开发
级别: 正式会员
精华主题: 0
发帖数量: 42 个
工控威望: 89 点
下载积分: 504 分
在线时间: 4(小时)
注册时间: 2023-04-06
最后登录: 2024-06-04
查看工控软件开发的 主题 / 回贴
楼主  发表于: 2024-06-04 22:42
只看楼主 | 小 中 大
删除文件夹和内部文件2

复制代码
  1. Function DelFolder(Str As String) As Boolean
  2. Rem RMdir的升级版本，根据目录地址删除最后文件夹及里面的文件
  3. Rem 使用方法Call RMDirs("D:\test\test2\test3")
  4. Rem if RMDirs("D:\test\test2\test3")=True then doSomething  else doOtherSomething
  5.     Err.Clear
  6.     On Error GoTo ele
  7.     Dim fs, f
  8.     If Len(Str) = 0 Then Exit Function
  9.     Set fs = CreateObject("Scripting.FileSystemObject")
  10.     Set f = fs.GetFolder(Str)
  11.     f.Delete
  12.     DelFolder = True   '删除多级目录成功
  13.     Set fs = Nothing
  14.     Set f = Nothing
  15.     Exit Function
  16. ele:
  17.     DelFolder = False  '删除多级目录失败
  18.     Set fs = Nothing
  19.     Set f = Nothing
  20.     'MsgBox Err.number & Err.Description
  21. End Function
我的博客，你可以先看一下我的文章和以前帮别人解决的一些技术问题。
专注VB编程开发20年的博客_CSDN博客-作品成品 开发的一些软件,股票分析理财投资,自动编程 源码库领域博主

https://blog.csdn.net/xiaoyao961