一区二区三区成人-一区二区三区www-一区二区三区 日韩-一区二区日韩欧美-一区二区日韩精品中文字幕-一区二区日韩

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

主站蜘蛛池模板: 精品精品国产自在久久高清 | 175m美女被网友灌醉啪啪玩脚 | 亚洲精品久久久久AV无码 | 亚洲香蕉综合在人在线视看 | 国产精品自在线 | 公交车强校花系列小说 | 操破苍穹全文阅读 | 国产成人精视频在线观看免费 | 咪咪爱小说 | а天堂中文最新版在线官网视频 | 美女插插视频 | 亚洲精品国产在线 | 精品国产免费一区二区三区 | 国产亚洲人成网站在线观看不卡 | 国产高清免费在线 | 欧美精品综合一区二区三区 | 国产精品日韩欧美一区二区 | 国产欧美日韩亚洲精品区2345 | 欧美日韩中文字幕久久伊人 | 秀婷程仪公欲息肉婷在线观看 | 星星动漫无删减在线观看 | 污到湿的爽文免费阅读 | 久久大胆视频 | 四虎影视库永久在线地址 | 国产精品在线 | 国产91区 | 99r在线观看 | 午夜影院在线免费观看 | 暖暖 免费 高清 中文 日本 | 饭冈加奈子乳喷cead144 | 99ri在线精品视频在线播放 | 果冻传媒在线视频观看免费 | 午夜一级免费视频 | 黄 色 成 年人在线 幻女free性俄罗斯第一次摘花 | 精品久久香蕉国产线看观看亚洲 | 国产福利兔女郎在线观看 | 久久国产影院 | 亚洲AV国产福利精品在现观看 | 四虎影视4hutv最新地址在线 | 亚洲无线一二三四区 | 日韩基地1024首页 |