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

工控軟件開發(fā)
級(jí)別: 正式會(huì)員
精華主題: 0
發(fā)帖數(shù)量: 42 個(gè)
工控威望: 89 點(diǎn)
下載積分: 504 分
在線時(shí)間: 4(小時(shí))
注冊時(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)編程 源碼庫領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 澳门午夜剧场 | 成人av一级片 | 美女大黄免费 | 精品国产一区二区三区四区vr | 国产在线色视频 | 色欲AV蜜桃一区二区三 | 国产精品久久久久久久hd | 五月丁香激色婷五月天 | 麻豆免费高清在线观看 | 国产精品区在线观看 | 狠狠色噜噜狠狠狠狠7777米奇 | 日韩视频高清 | www.com久久久 | 各种高潮VIDEOS | 蜜臀91丨九色丨蝌蚪中文 | 日本国产三级 | 中文不卡1区2区3区 大陆精大陆国产国语精品 全黄H全肉边做边吃奶视频 | 国产精品久久久久久久久久久丝袜 | 久久99精品久久久久久hb无码 | AV人摸人人人澡人人超碰手机版 | 男女猛烈啪啪无遮挡免费观看 | 手机免费在线视频 | 少妇被粗黑进进出出在线观看 | 你懂的免费在线观看视频网址 | A级无遮挡超级高清一在线观看 | 亚洲另类视频 | 国产手机视频在线观看 | 欧美性猛交xxxx乱大交退制版 | 吃奶呻吟打开双腿做受动态图 | 精品国产在 | 日韩一区二区三区福利视频 | 九九九九九九伊人 | 一区二区三区在线播放视频 | 毛片在线不卡 | 亚洲欧美日韩精品久久奇米一区 | 成年男女免费视频 | 成在人线AV无码免费高潮水老板 | 日本一区二区久久 | 成人黄色一级网站 | 日本入室强伦姧BD在线观看 | 操操操干干干 |