2025最新热门电视排行榜-2025最新上映电影-2025最新院线大片抢先看-2025最新在线观影网站-2048国产精品原创综合在线-23部人禽伦

工控軟件開發
級別: 正式會員
精華主題: 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

主站蜘蛛池模板: 亚洲人和日本人 | 成人国产免费软件 | 国产精品福利午夜在线观看 | 加勒比综合精品 | 女人扒开 | 扒开腿挺进肉嫩小泬喷水网站 | 神马电影我不卡影院 | 中文欧美乱码视频 | 午夜福利182tv | 91国内揄拍国内精品情侣对白 | 久热韩国综合中文字幕视频 | 国产免费视频观看网站 | 午夜亚洲国产理论片秋霞 | 天堂mv亚洲mv在线播放9蜜 | 欧美日韩精品福利 | 国产欧美一区二区精品婷婷 | 亚洲高清一区二区三区四区 | 国产人成网在线播放va | 91成版人在线观看入口 | 亚洲视频高清不卡在线观看 | 国产精品碰碰现在自在拍 | 韩国午夜理伦三级理论在线观看 | 中文字幕精品亚洲电影 | 亚洲天堂一区二区三区 | 综合五月激情二区视频 | 网友自拍露脸国语对白 | 洋妞国产全集在线观看 | 最新免费电影 | 日本在线综合一区二区三区 | 国产精品盗摄视频 | 天堂а√在线最新版中文在线 | 国产欧美日韩精品高清二区综合区 | 中文字幕日韩wm二在 | 日韩中文在线视频 | 日韩成人午夜在线视频 | 国产一区二区三区在线免费 | 新91网页版| 日韩欧美色激情 | 影院4k电影在线 | 国产女学生破女初在线观看 | 日本三级在线播放线观看免 |