久久精品人成免费_国产精品久久久久久久白皙女_一级片播放_日韩欧美在线免费_亚洲AV无码精品色午夜果冻不卡_成人高潮免费视频

工控軟件開發(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

主站蜘蛛池模板: 无码精品国产DVD在线观看9久 | 免费的欧美gv在线网站 | 伊人久久大香线蕉综合网站 | 日韩国产片 | 秀人网免费观看 | 毛片网此| 人人妻人人澡人人爽精品日 | 91青娱| 欧美精品xxxxx| 成r视频免费观看在线播放 美女免费视频黄 | 啪啪免费观看网站 | 国产精品黄页网站在线播放免费 | 粉嫩虎白女在线观看中国女 | 日韩av无码精品色午夜 | 四只虎影院在线免费 | 在线观看国产成人av天堂 | 免费一区区三区四区 | 好硬好湿好大再深一点动态图 | 久久久老司机 | 亚洲色无码中文字幕YY51999 | 国产精自产拍久久久久久蜜 | 一色屋精品视频在线观看 | 日韩日日操 | 91精品蜜臀一区二区三区在线 | 国产高跟丝袜脚交视频 | 国产91视频播放 | 蜜桃视频在线观看免费视频网站WWW | 国产精品免费无遮挡无码永久视频 | 精品久久国产综合婷婷五月 | 成年免费大片黄在线观看一级 | 俺たちの熟女纱香60歳 | 国产区一区二区三在线观看 | 久在线精品视频 | 高清视频在线观看免费 | 免费观看18禁无遮挡真人网站 | 男人女人一边躁一边爽 | 国产精品免费一区二区三区四区 | 国产精品99久久久久久久久久久久 | 成人欧美一区二区三区?人麻豆 | 色欲色香天天天综合网WWW | 草莓香蕉樱桃黄瓜视频 |