无码精品人妻一区二区三区入口-无码精品人妻一区二区三区夜夜嗨-无码精品人妻一区二区三区颖A片-无码精品日本一区二区桃花岛-无码精品网站-无码精品一

工控軟件開發(fā)
級(jí)別: 正式會(huì)員
精華主題: 0
發(fā)帖數(shù)量: 42 個(gè)
工控威望: 89 點(diǎn)
下載積分: 504 分
在線時(shí)間: 4(小時(shí))
注冊(cè)時(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)編程 源碼庫(kù)領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 97亚洲精华液 | 97色伦久久视频在观看 | 漂亮少妇高潮A片XXXX | a网站在线观看免费网站 | 国产超碰AV人人做人人爽 | 国产精品毛片天天看片 | 精品亚洲成a人在线观看 | 日韩精品视频在线观看免费 | 亚洲毛片无码专区亚洲乱 | 国产一区二区三区免费大片天美 | 伊人久久精品一区二区三区 | 国外人成人色视频在线 | 999二区在线 | a级日韩乱理伦片 | www国产精品内 | 欧美日韩美利坚在线观看 | 国产情侣作爱视频免费观看 | 亚洲精品久久AV无码一区二 | 91成人国产综合久久精品九色 | 国产麻豆一精品一av一免费 | 91精品国产闺蜜国产在线 | 久久亚洲一区二区 | 国产女同无遮 | 国产91玉足脚交在线播放 | 久久中精品中文 | 2024国产精品一卡2卡三卡4卡 | 无码的黄a在线观看 | 国产免费不卡v片在线观看 国产免费成人久久 | 91夜色精品国产网站在线观看 | 国产尤物精品视频 | 2024最新国产三级在线看 | 无码高潮少妇多水多毛 | 色综合久久天天综 | mv字幕免费高清在线7字幕免费看2 | 99热这里只有精品免费 | 欧美精品18videose性欧美 | 果冻传媒91制片厂免费不卡在线观看 | 91精品国产综合成人高清视频在线观看 | 成年站免费网站看v片在线 成年作爱免费视频视频 | 福利精品一区二区三区久久久久 | 国产精品露出91 |