东京热无码人妻系列综合网站_国产精品性色一区二区三区_网站大全免费网站_又爽又黄无遮拦成人网站_黄色影院免费观看_奇米影视在线观看

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

主站蜘蛛池模板: 国产欧美日本AⅤ精品 | 精品有码| 欧美成人久久 | 欧美精品无码久久久潘金莲 | 日韩欧美一区二区久久婷婷 | 91无码视频在线观看 | 久久精品亚洲成在人线av网址 | 黄色毛片久久久久久久久久久 | 精品国产一区二区三区久久久蜜月 | 国产被窝福利一区二区 | 色一情一乱一伦一区二区三区 | 国产中文字幕在线观看 | 国产精品久久久久久一级毛片 | 成人免费午夜在线观看 | 37人体做爰久久久久久 | 久久亚洲aⅴ永久无码精品 想看黄色一级片 | 国产激情久久久久老熟女亚洲 | 国产女人高潮叫床免费视频 | 久视频免费 | 日日噜噜噜夜夜爽爽狠狠视频97 | 福利网站欧美版 | 亚洲av无码一区二区二三区我 | 中文字幕黑人 | 美日韩精品一区二区三区 | 狠狠狠的在啪线香蕉亚洲应用 | 亚洲日本天堂三级 | 国产欧美综合一区二区三区 | 欧美亚洲国产一区二区三区 | 国产精品久久高潮无码视频 | 国产伦精品一区二区三区免费观看 | 成人在线观看91 | 亚洲午夜精品一区二区三区他趣 | 性俄罗斯xxxxxbbbbbb极品 国产欧洲在线 | 95免费视频 | 99精品国产99久久久久影院 | 国产精品国产三级国产普通话一 | 91黄视频在线观看 | 性做久久久久久免费观看软件 | 一级色毛片 | 成人作爱视频 | 奇米狠狠色|