伊人激情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

用大鸡巴插美女| 最近午夜日韩成人av黄| 91自拍青娱乐| 久久久国产欧美一区二区| 嗯哦啊好大视频在线观看| 欧美国产日韩一二三四区| 男人叉进女生的逼叉进去| 日本一道一区二区三区四区| 久久久久久久久久热视频| 国产一区二区三区久久精品| 国产一区二区三区四区久久| 鸡巴操逼真人版| 美女胸大自慰在线草鸡巴| 操日本女人肛门| 逼逼逼逼啊啊嗯嗯啊视频| 亚洲av在线播放一区二区| 国产精品毛片乱子乱人仑| 女人被操了逼吃出水视频| 日韩电影一区二区免费在线| 日韩午夜在线视频不卡片| 高潮国产白浆抽搐的视频| 性感美女被调教套装射精| 日韩一级特黄a在线观看| 山西旺福源贸易有限公司| 吃瓜在线观看免费完整版| 久久99精品一区二区三区| 亚洲国产精品免费在线观| 国产羞羞的视频在线观看| 国产污不卡视频在线观看| 国语大阴毛操逼| 五月天综合视频在线观看| 午夜宅男宅女的免费网站| 精品人妻少妇一区二区三级| 免费的日韩视频在线观看| 精品新一区二区三区四区| 日韩特级黄片高清在线看| 亚洲国产日本欧美乱久久| 熟妇之战完整版在线观看| 久久了免费视品在现观看| 亚洲综合激情视频在线观看| 欧美日本精品视频在线观看|