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

主站蜘蛛池模板: 在线观看高清视频免费网站 | 成人国产精品一区二区 | 九哥艹逼网 | 不卡国产视频 | 一区一区三区四区产品动漫 | 国产色婷婷五月精品综合在线 | free嫩白的21sex性按摩 | 国产一区视频在线看 | 男人玩双乳30分钟视频 | 岛国精品一区二区三区 | 99在线国产视频 | 国产外围在线观看 | 国产永久免费av | 日韩av一区二区在线观看 | free hd tube moviechese在| 日韩丰满少妇无吗视频激情内射 | 扒开jk美女狂揉动漫 | 欧美hd丝袜xxxmovies | 精品视频在线免费看 | 国产精品电影一区二区三区 | 99精品网站| 天天躁夜夜躁狠狠躁2021A2 | 欧美午夜精品一区 | 在线观看黄 | 日日噜噜噜噜夜夜爽 | 大伊香蕉在线精品视频75 | 国产午夜人做人免费视频 | 激情毛片 | 无码欧精品亜州日韩一区夜夜嗨 | 东京热无码av一区二区 | 最近中文字幕高清免费大全8 | 久久久久无码国产精品不卡 | 大地资源网在线观看免费高清 | 曰曰摸夜夜添夜夜添高潮出水 | 欧美性xxxmoive | 精品无码专区毛片 | 首页国产欧美日韩丝袜 | 伊人久久在线?看 | 久操精品在线观看 | 岛国aa| 青青操超碰 |