国产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

主站蜘蛛池模板: 麻豆传媒视频在线观看 | 国产日产亚欧系列 | 成年人在线观看视频 | 中文字幕亚洲色妞精品天堂 | 国产精品无码一区二区三级 | 91tv永久入口| 国产香线蕉手机视频在线观看 | 激情欧美成人小说在线视频 | 欧美一级特黄aaaaaaa在线观看 | 狠狠色综合久久 | 草草草网站 | 999免费观看视频 | 国产呻吟对白刺激无套视频在线 | 水蜜桃yy8848私人视院 | 人人澡人人爽欧一区 | 亚洲国产精品婷婷久久久久 | 国产国产 | 91伦理视频在线观看 | 在线观看青青草 | 披按摩高潮A片一区二区三区 | 国产精品一区二区久久精品 | 久久99青青精品免费观看 | 色阁阁69婷婷 | 绯色av一区二区三区免费看 | 一区二区不卡在线 | 色av性av丰满av | 成人性生交大免费看 | 动漫精品视频一区二区三区 | 污黄网站在线观看 | 无码AV天天AV天天爽 | 97视频| 国产99国产精偷国产黄在线欧洲 | 1区2区3区在线观看 日韩综合一区二区 | 欧美黄色性视频 | 欧美日一级片 | 欧洲精品乱码久久久久蜜桃 | 欧美日韩免费高清 | 欧美一级观看 | 波多野结衣中文AV无码专区 | 国产麻豆91欧美一区二区 | 三年片在线观看免费观看大全麻豆 |