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

主站蜘蛛池模板: 成全视频在线观看视频在线播放 | 丰满的女教师电影 | 久久午夜精品视频 | 韩国av精华合集3小时 | 亚洲日韩爆乳中文字幕欧美 | 1234成人站 | 欧美精品亚洲精品日韩已满十八 | 香蕉大伊亚洲人在线观看 | 中文字幕在线免费观看 | 懂色av中文字幕 | 在线视频观看一区 | 在线观看免费a片视频 | 国产福利在线观看视频 | 哺乳一区二区三区中文视频 | 亚洲精品色情婷婷在线播放 | 赵丽颖被大肉楱征服小说 | 国内露脸少妇精品视频 | 日韩a在线观看 | 免费入口在线观看 | 国产精品久久久久久久久久无遮挡 | 欧美一区二区三区爽大粗免费 | 人妻有码av中文字幕久久琪 | 免费av一区二区 | 扒开粉嫩的小缝喷白浆h | 在线观看中文av | 日本高清无卡码一区二区久久 | 亚洲一区二区观看 | 日韩美av | 国产精品免费久久久久软件 | 国产三级a三级三级大全 | 中文字幕一区三级久久日本 | 久久青草影院 | 中文字字幕在线中文乱码解决方法 | 亚洲a在线视频 | 亚洲精品一区二区三区不 | 日本成人免费在线视频 | 91肉丝 | 男女性生活视频网站 | 亚洲在线精品视频 | 99色网| 国产三级精品最新在线 |