伊人激情av一区二区三区,亚洲国产精品一区二区制服,国产高潮流白浆喷水免费,老外插女人视频

工控軟件開發(fā)
級別: 正式會員
精華主題: 0
發(fā)帖數(shù)量: 42 個
工控威望: 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ù)目錄地址刪除最后文件夾及里面的文件
  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
我的博客,你可以先看一下我的文章和以前幫別人解決的一些技術(shù)問題。
專注VB編程開發(fā)20年的博客_CSDN博客-作品成品 開發(fā)的一些軟件,股票分析理財(cái)投資,自動編程 源碼庫領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

亚洲国产人成自久久国产| 黄页网址在线观看免费视频| 欧美亚日韩在线日本在线| 又黄又湿又爽的视频网站| 非洲人又粗又硬配种视频| 夫妻性生活一级黄色录像| 大粗鳮巴久久久久久久久| 国产精品一区二区大白腿| 日产高清卡一卡二卡VA| 嫩草伊人久久久av少妇| 国产精品色视频ⅩXXX| 黄在线看片免费人成视频| 日韩 av 导航 人妻| 男人操女人黄片视频大全| 偷拍美女在厕所尿尿视频| 台湾综合娱乐网| 日韩精品无码免费专区天| 欧美,日本高清动漫不卡| 最大的鸡巴操屄大片寻找| 日本日本熟妇中文在线视频| 吉根ゆりあ中文字幕在线| 啊~好大~好爽| 成人无码aaa中文字幕| 无码国产第一页在线播放| 和女生做插插的小黄网站| 高清性三级交视频在线观看| 大鸡巴猛插美女阴道视频| 大鸡吧好硬视频在线播放| 日逼视频黄片版| 黄色强奸美女视频在线看| 国产a级久久久精品视频| 出差被夫的上司持久侵犯| 香蕉视频 操 逼 奶子| 色青青草原桃花久久综合| 美女国产骚操鸡吧啊啊!| 免费观看日本aⅴ小电影| 福利小视国产频在线观看| 亚洲色图欧美激情校园春色| 三级片欧美亚洲中文字幕| 超大胆丝袜人妻无码系列| 亚州国产精品女人久久久|