成人免费AA片在线观看-成人免费a级毛片-成人免费a级毛片无码片2022-成人免费a级毛片无码网站入口-成人免费ā片在线观看-成人免费a视频

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

国产乱子夫妻xx黑人xyx真爽 | 狠狠色噜噜狠狠狠8888米奇 | 亚洲av无码专区亚洲av | 国产av无码专区亚洲av毛片搜 | 色一情一乱一伦 | 日韩大片高清播放器大全 | 亚洲av片不卡无码久久 | 国内一级特黄女人精品毛片 | 久久久无码精品亚洲日韩按摩 | 黑人巨大无码中文字幕无码 | 91视频官网| 亚洲成av人的天堂在线观看 | 免费欧三a大片 | 亚洲av无码乱码国产一区二区 | 久久96国产精品久久久 | 99蜜桃在线观看免费视频网站 | 国产精品v免费视频 | 亚洲av永久精品无码桃色 | 欧美肥胖老妇bbw | 野花社区视频www官网 | 亚洲中文字幕无码久久 | 色狠狠久久av五月综合 | 日本乱子人伦在线视频 | 久久久久久曰本av免费免费 | 日本丰满少妇裸体自慰 | 1024人成软件色www | 成年人视频在线观看免费 | 国产免费爱在线观看视频 | 国产日产精品一区二区三区四区的特点 | 久久全国免费久久青青小草 | 免费无遮挡无码永久在线观看视频 | 91久久夜色精品国产九色 | 少妇又紧又深又湿又爽视频 | 欧美午夜一区二区福利视频 | 99手机在线视频 | 中文无码久久精品 | 236宅宅免费网 | 内射少妇一区27p | 无套内射极品少妇chinese | 精品一品国产午夜福利视频 | 呦系列视频一区二区三区 |