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

工控軟件開發(fā)
級別: 正式會員
精華主題: 0
發(fā)帖數(shù)量: 42 個
工控威望: 89 點
下載積分: 504 分
在線時間: 4(小時)
注冊時間: 2023-04-06
最后登錄: 2024-06-04
查看工控軟件開發(fā)的 主題 / 回貼
樓主  發(fā)表于: 2024-06-04 22:42
刪除文件夾和內(nèi)部文件2

復(fù)制代碼
  1. Function DelFolder(Str As String) As Boolean
  2. Rem RMdir的升級版本,根據(jù)目錄地址刪除最后文件夾及里面的文件
  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
我的博客,你可以先看一下我的文章和以前幫別人解決的一些技術(shù)問題。
專注VB編程開發(fā)20年的博客_CSDN博客-作品成品 開發(fā)的一些軟件,股票分析理財投資,自動編程 源碼庫領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 国产在线播放免费 | 国产在线a不卡免费视频 | 麻豆国产成人精品午夜视频 | 国产爱v| 国产乱理论片在线观看理论 | 黄色四虎影院 | 国产成人盗拍精品免费视频 | 久久亚洲国产成人亚 | 免费看黄色一级毛片 | 成人午夜无人区一区二区 | 成年人一级黄色片 | 国产91一区二区在线播放不卡 | 久热综合| 精品蓝导航视频福利在线 | 高清国产激情视频在线观看 | 精品一区二区久久 | 国内a级毛片 | 毛片一级黄片 | 成人性一级视频在线观看 | 久久亚洲精品成人综合 | 国产精品操 | 国产无卡一级毛片aaa | 国产三级一区二区三区 | 国产老肥熟一区二区三区 | 国产高清黄色 | 黄网站在线播放 | 国产欧美日韩精品在线 | 国产在线不卡 | 麻豆精品久久精品色综合 | 国产三级理论片 | 波多野结衣在线播放视频 | 国产真实乱子伦视频播放 | 免费一级特黄视频 | 久久精品一区二区三区不卡 | 久热青青青在线视频精品 | 国产第1页| 国产在线视频你懂的 | 成年女人黄小视频 | 国产成人精品日本亚洲专区6 | 成人黄色在线免费观看 | 韩国一级特黄清高免费大片 |