国产CHINESE男男GAYGAY免费网站_日本在线一区二区三区_欧美大屁股xxxx_国产xxx精品视频大全_一区二区视频国产_人人爱国产

工控軟件開發
級別: 正式會員
精華主題: 0
發帖數量: 42 個
工控威望: 89 點
下載積分: 504 分
在線時間: 4(小時)
注冊時間: 2023-04-06
最后登錄: 2024-06-04
查看工控軟件開發的 主題 / 回貼
樓主  發表于: 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編程開發20年的博客_CSDN博客-作品成品 開發的一些軟件,股票分析理財投資,自動編程 源碼庫領域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 久久高清| 免费国产白丝喷水娇喘视频 | 成人免费看WWW网址入口 | 两个黑人大战嫩白金发美女 | 一级片短视频 | 国产一区二区三区波多野结衣AV | aa级女人大片喷水视频免费 | 农村乱人伦一区二区 | www.97超碰.com| 久久久噜噜 | 久久久大尺度 | 亚洲精品国产v片在线观看 国产91国语对白在线 | 亚洲欧美综合一区二区三区 | 久久综合色之久久综合 | 污污在线观看 | 国精品久久久久久久久久久58 | 无码人妻黑人中文字幕 | 亚洲AV激情无码专区在线播放 | 免费黄色成人 | av女在线| 一级在线免费观看 | 国产强伦姧人妻毛片 | 边吃奶边做爰高潮免费视频 | 69产性猛交xxxx乱大交 | 91婷婷| 日韩一级黄色 | 久久精品国产亚洲AV麻豆 | 一二三四在线社区观看社区7 | 久久久久一区二区三区四区五区 | 成人亚洲性情网站www在线观看国产 | 蜜桃AV无码免费看永久 | 2021天堂中文幕一二区在线观 | 超碰网在线观看 | 久久99精品久久久久久9 | 国产日韩久久免费福利网站 | sese成人网 | 亚洲精品久久30p | 日本在线www | 日韩视频在线一区二区 | 女人自慰喷水高清播放 | 亚洲人亚洲人色久 |