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

工控軟件開(kāi)發(fā)
級(jí)別: 正式會(huì)員
精華主題: 0
發(fā)帖數(shù)量: 42 個(gè)
工控威望: 89 點(diǎn)
下載積分: 504 分
在線時(shí)間: 4(小時(shí))
注冊(cè)時(shí)間: 2023-04-06
最后登錄: 2024-06-04
查看工控軟件開(kāi)發(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ù)問(wèn)題。
專注VB編程開(kāi)發(fā)20年的博客_CSDN博客-作品成品 開(kāi)發(fā)的一些軟件,股票分析理財(cái)投資,自動(dòng)編程 源碼庫(kù)領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

亚洲欧美日韩国产成人一区| 范冰冰高潮喷水在线播放| 久久中文字幕第一页在线| 国产色哟哟精选在线播放| 青草制服丝袜一区第一页| 日本网站在线观看一区二区| 亚洲综合色婷婷在线观看| 人偷久久久久久久偷女厕| 欧美日韩国产码高清综合| 美女尿口无遮挡在线观看| 中文字幕SM重口第三页| 美女艹逼拔插拔插艹逼啊| 国产成人久久a免费观看| 日韩精品视频高清在线观看| 肥婆雪白屁股无毛逼尿尿| 日韩精品毛片免费在线观看| 天天干在线资源| 国产精品偷乱一区二区三区| 成人午夜性A级毛片免费| 欧美一区二区日韩在线观看| 找骚逼操欧美群交大骚逼| 性关系一区二区三区网站| 色色五月天,开心激情网| 不要抽插哪里人妻 视频| 成·人免费午夜在线观看| 操日本熟妇videos| 都市激情亚洲综合另类小说| 女人毛片a毛片久久人人| 国产精品一区二区三区国产| 蜜臀91久久国产人妻3p| 自慰在线观看波多野结衣| 日韩第一页中文在线视频| 日产亚洲一区二区三区四区| 制服丝袜中文字幕精品z| 亚洲av成人综合网伊人| 操大黑逼逼视频| 日韩精品欧美极一区二区| 国产女主播福利一区二区| 最新网址日韩中文字幕国产| 成人a毛片手机免费播放| 欧美国产日韩在线成人a|