97视频免费观看2区_无码A级毛片免费视频内谢_JAPANESEXXXX日本熟妇伦视频_国产精品主播在线_黄色大片视频观看性感_久久精品国际

工控軟件開發(fā)
級(jí)別: 正式會(huì)員
精華主題: 0
發(fā)帖數(shù)量: 42 個(gè)
工控威望: 89 點(diǎn)
下載積分: 504 分
在線時(shí)間: 4(小時(shí))
注冊時(shí)間: 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í)版本,根據(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   '刪除多級(jí)目錄成功
  13.     Set fs = Nothing
  14.     Set f = Nothing
  15.     Exit Function
  16. ele:
  17.     DelFolder = False  '刪除多級(jí)目錄失敗
  18.     Set fs = Nothing
  19.     Set f = Nothing
  20.     'MsgBox Err.number & Err.Description
  21. End Function
我的博客,你可以先看一下我的文章和以前幫別人解決的一些技術(shù)問題。
專注VB編程開發(fā)20年的博客_CSDN博客-作品成品 開發(fā)的一些軟件,股票分析理財(cái)投資,自動(dòng)編程 源碼庫領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 国产精品一区二区免费不卡 | 欧美人牲口杂交在线播放免费 | 大地8在线播放免费观看国语高清 | 成年人在线网站 | 美女主播在线观看 | 国产一区二区免费看 | 精品人妻系列无码专区久久 | 精品国产一区二区三区观看不卡 | 蜜桃国精产品二三三区视频 | 樱桃视频免费观看 | 97影院3 | 国产a高清 | 妞干网免费在线 | 中文字幕精品一区 | 伊人成色综合人夜夜久久 | 草草在线免费视频 | 久久综合久久鬼色 | www.久久.com| xxxav在线 | 大黑香蕉在线视频国产 | 曰批全过程40分钟免费视频多人 | 国产蜜臀97一区二区三区 | 日本69av | 草久视频在线 | babesvideos极品另类 | 国产偷久久一区精品69 | 国产精品久久久高清免费 | 亚洲精品无码久久天堂 | 国产婷婷色一区二区三区四区 | 公主荫蒂每天被男人添H | 国产激情一二三 | 国产成人AV片无码免费 | 国产一级全黄 | 豆花视频免费观看 | 亚洲性猛交 | 国产一区二区三区高清视频 | 久99九色视频在线观看 | 欧美成人高清 | 国产美女主播一级成人毛片 | 久久久久久久久久久久网站 | 99久久久久久久无码 |