思思久久96热在精品国产10-思思久久96热在精品国产免费-思思久久99-思思久久99热-一级毛片免费观看视频-一级毛片免费看

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

主站蜘蛛池模板: 精品欧美一区二区三区在线观看 | 精品久久久久久久 | 隔壁老王国产在线精品 | 看国产一级毛片 | 国产在线午夜 | 国产69精品久久久久999小说 | 男女乱淫真视频免费观看 | 国产片一级 | 国内视频一区二区三区 | 国产在线视精品麻豆 | 蜜桃bt天堂精品视频在线观看 | 国产麻豆91在线 | 麻豆一区| 国产麻豆高清在线观看 | 国产一区a | 国产精品99爱免费视频 | 美女黄色一级毛片 | 国产3级| 精品视频 久久久 | 久久免费视频3 | 国产欧美成人免费观看 | 毛片1| 福利综合网| 成人αv在线视频高清 | 成人99国产精品一级毛片 | 国产福利影视 | 大伊香蕉精品视频在线天堂 | 久久艹久久| 高清欧美在线三级视频 | 国产精品久久久久久久久免费 | 久久国产乱子伦精品免费不卡 | 国产乱子伦 | 狠狠干狠狠艹 | 美女被日在线观看 | 国产一卡一卡三卡乱码 | 国产伦精品一区二区三区免费迷 | 国产美女福利在线 | 精品在线99 | 黄色三级理论片 | 韩国午夜精品理论片西瓜 | 美女一级毛片视频 |