欧美日韩在线一区二区-欧美日韩在线一区二区三区-欧美日韩在线一区亚洲二区-欧美日韩在线永久免费播放-欧美日韩整片中文字幕-欧美日韩制服丝袜六区

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

主站蜘蛛池模板: 日韩欧美亚洲免费在线 | 国产成人综合久久 | 高潮无码少妇人妻偷人激情 | 日韩成人不卡福利一区二区 | 国产伦精品一区二区三区不卡 | 国产成人精品一区二区免费视频 | 国产精品久久二区 | av无码精品一区二区三区宅噜噜 | 日韩国产在线观看 | 黑人猛交一二三区A片R | 成a人片免费在线观看 | 亚洲精品久久中文字幕 | 亚洲91精品在线 | 久久久亚洲综合国产精品 | 九一精品国产 | 久久久亚洲精品免费 | A片人澡C片人人妻 | 亚洲无精品一区二区在线观看 | 亚洲国产av无码综合原创国产 | 久久99蜜桃精品久久久久小说 | 国产成人精品必看 | 福利片在线观看免费高清视频 | 日本加勒比在线精品视频 | 91蜜桃传媒精品久久久一区二 | 99热在线免费 | 国产a级无码一区二区三区 国产a级午夜毛片 | 海角国精产品一区一区三区糖心推荐 | 最好看免费观看高清视频了 | 99久久国产精品欧美蜜芽 | 国产精品原创av片国产日韩 | 久久久久久午夜成人影院 | 国产午夜精品福利久久 | 国产成人av大片大片在线播放 | 日本最新免费二区 | 国产精品高清偷窥盗摄 | 波多野结衣作品番号 | 91免费无码国产在线观看 | 漂亮的丰年轻的继坶3在线 漂亮的丰年轻的继坶3在线观看 | 国产成人精品免费影视大全 | 国产一区二区精品在线 | 3d动漫精品啪啪一区二区 |