97视频免费观看2区_无码A级毛片免费视频内谢_JAPANESEXXXX日本熟妇伦视频_国产精品主播在线_黄色大片视频观看性感_久久精品国际

工控軟件開發(fā)
級別: 正式會員
精華主題: 0
發(fā)帖數量: 42 個
工控威望: 89 點
下載積分: 504 分
在線時間: 4(小時)
注冊時間: 2023-04-06
最后登錄: 2024-06-04
查看工控軟件開發(fā)的 主題 / 回貼
樓主  發(fā)表于: 2024-06-04 22:42
刪除文件夾和內部文件2

復制代碼
  1. Function DelFolder(Str As String) As Boolean
  2. Rem RMdir的升級版本,根據目錄地址刪除最后文件夾及里面的文件
  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
我的博客,你可以先看一下我的文章和以前幫別人解決的一些技術問題。
專注VB編程開發(fā)20年的博客_CSDN博客-作品成品 開發(fā)的一些軟件,股票分析理財投資,自動編程 源碼庫領域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 啄木乌法国一区二区三区 | 亚洲精品乱码久久久久久蜜桃麻豆 | 亚中文字幕 | 亚洲最大成人综合 | 国产精品久久久久久久久久久免费 | 日本国产在线专区 | 人妻体内射精一区二区 | 毛片福利 | 97久久精品一区二区三区的观看方式 | gayfree一gaytube| 国产在线精品一区二区在线播放 | 天堂国产 | 欧美爱爱一区二区 | 一区二区日韩在线观看 | 香蕉久久人人97超碰caoproen | 文豪野犬第四季在线观看樱花动漫 | 回复术士第2季在线观看免费 | 毛片免费网站 | 九色视频九色自拍 | 久久国产主播精品 | 精品色呦呦 | 亚洲精品高清国产一久久 | 国产二级视频 | 三级黄色免费片 | 日韩久久无码一区二区 | 精品国产成人亚洲午夜福利 | 99在线视频观看 | 成人一区二区av | 国产精品国产亚洲精品看不卡 | 欧美一级久久久久久久大片 | 亚洲精品乱码久久久久久蜜桃不爽 | 下面一进一出好爽视频 | 国产亚洲高清一区 | 免费色网| 久久不见久久见免费影院WWW日本 | 俄罗斯18xxoo在线 | 亚洲香蕉视频天天爽 | 久久一级片 | 久久久久久国产精品免费无遮挡 | 免费看无码毛视频成片 | 免费a级毛片免费体验区 |