久久免费视频在线观看6_成人精品一区亚洲午夜久久久_久久www视频_天天干干夜夜_日本一区二区三区视频在线播放_亚洲va视频

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

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板： 久久精品久久精品久久 | 免费av在线网站 | 97caoporn国产免费人人 | 久久久久久久久久久久久女国产乱 | 国产精品区区久久久狼 | 国产成人精品免费视频大全五 | 亚洲欧洲美洲一区二区三区 | 成人在线手机视频 | 国产高清视频一区 | 国产国语一级A毛片高清视频 | 国产欧美日韩精品一区 | 国产免费私拍一区二区三区 | 厨房少妇人妻好深太紧了 | 成品人国产一区二区三区精品 | 国产91精品看黄网站 | 国产成年无码a影片在线观看 | 爆乳jufd492汗だく肉感 | 999久久久精品免费毛片 | 日韩女优中文字幕 | 欧美人体做爰大胆视频69视频 | 亚洲一卡久久 | 久久精品99久久 | 超碰97国产在线 | 一本色道久久综合亚洲精品图片 | 国产精久久久久久 | 日本中文字幕永久在线 | 久久99精品久久久 | 被男狂揉吃奶胸高潮视频在线观看 | 成人a区 | 日韩综合在线 | 国产精品自产拍在线观看桃花 | 国产精品久久久久久久白浊 | 国产亚洲精品日本亚洲网站 | 欧美性色a| 国产女黄3片 | 亚洲精品乱码久久久久膏 | 能在线观看的一区二区三区 | 国产精品拍自在线 | 成人福利视频 | 国产精品无码一区二区在线观动漫 | avwww在线|