成人免费AA片在线观看-成人免费a级毛片-成人免费a级毛片无码片2022-成人免费a级毛片无码网站入口-成人免费ā片在线观看-成人免费a视频

工控軟件開發
級別: 正式會員
精華主題: 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

婷婷开心激情综合五月天 | 350gao免费永久视频 | 24小时日本在线www免费的 | 777精品视频| 久久tv中文字幕首页 | 欧美激情a∨在线视频播放 亚洲欧美日韩中文高清www777 | 国产98在线 | 免费、 | 日本一二三区视频在线 | 国产女人成人精品视频 | 亚洲v欧美v国产v在线观看 | 国产成人av三级在线观看按摩 | 成人在线观看视频网站 | 国产suv精品一区二区四 | 久久人人爽人人爽人人片av东京热 | 久久精品卫校国产小美女 | 国产午夜精品久久久久免费视 | 麻豆人妻无码性色av专区 | 美女视频黄a视频免费全过程在线 | 免费在线黄色电影 | 国产乱人伦真实精品视频 | 男女裸交无遮挡啪啪激情试看 | 无码内射中文字幕岛国片 | 国产农村精品一级毛片视频 | 国产女人18毛片水真多18精品 | 国产aⅴ无码专区亚洲av麻豆 | 国产精品区一区二区三在线播放 | 国产99久久九九精品无码 | 精品一区二区久久久久久久网站 | 亚洲色欲久久久久综合网 | 人妻在卧室被老板疯狂进入国产 | 精品一区二区三区在线观看 | 性欧美牲交xxxxx视频欧美 | 婷婷色中文字幕综合在线 | 91自产国偷拍在线 | 天天做天天爱天天爽综合网 | 少妇久久久久久被弄到高潮 | 玩弄人妻少妇精品视频 | 狂猛欧美激情性xxxx大豆行情 | 国产精品国产三级国产普通话对白 | 免费国产足恋网站 | 精品人妻无码区二区三区 |