无码精品人妻一区二区三区入口-无码精品人妻一区二区三区夜夜嗨-无码精品人妻一区二区三区颖A片-无码精品日本一区二区桃花岛-无码精品网站-无码精品一

工控軟件開發(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ù)問題。
專注VB編程開發(fā)20年的博客_CSDN博客-作品成品 開發(fā)的一些軟件,股票分析理財(cái)投資,自動(dòng)編程 源碼庫(kù)領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 国产成人一区二区三区精品 | 精品人妻无码一区二区三区GIF | 国内精品久久久久久久小说 | 久久精品亚洲精品国产色婷 | 爱爱帝国亚洲综合社区区 | 欧美日韩在线精品一区二区三区 | 久久精品老熟女人妻毛片 | 99热这里只有精品免费国产 | 亚洲熟女少妇av一区 | 国产精品一区二区不卡的视频 | 2025一本久道久久综合狂躁 | 国产成人综合精品 | 91色窝窝国产蝌蚪在线观看 | 日本aⅴ日本高清视频影片 日本aⅴ在线 | 国产欧美日韩精品成人专区 | 成人全黄A片免费看 | 国产福利精品 | 91精品国产福利在线观看麻豆 | 日韩精品人妻v一区二区三区 | 精品久久久中 | 中文字幕人妻无码系列第 | 国产亚洲日韩网曝欧 | 久久综合一区二区三区 | 强制高潮18xxxx按摩 | 一本道无线中字 | 国产一区二区草草影院 | 丰满少妇被猛烈高清播放 | 精品露脸国产偷人在视频 | 国产aⅴ精品一区二区三区久久 | 欧美日韩制服中文视频在线 | 狠狠色噜噜狠狠狠狠2022 | a级毛片免费观看完整 | 久久精品国产亚洲αv忘忧草 | 久久国产亚洲av无码麻豆 | 婷婷久久综合九色综合伊人色 | 精品人妻系列无码一区二区三 | 色色噜一噜 | a级国产乱理论片在线观看av | 久草手机在线视频 | 成人av专区精品无码国产 | 老熟女强人国产在线 |