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

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

主站蜘蛛池模板: 人妻少妇乱子伦喷水 | 亚洲九九爱 | 欧美在线观看一区二区三区 | 好吊妞这里有精品 | 免费人成无码视频在线观看 | 伊人久艹 | 一区二区三区区四区播放视频在线观看 | 在线看免费无码a片视频 | 国产香蕉尹人综合在线观看 | 99久久欧美日韩国产二区 | 91深夜 | XXX波多野结衣苍井空 | XYX性爽欧美三人交 mv大片免费 | 国产一级a爱片在线观看视 黄色毛片免费进入 | 97精品无人区乱码在线观看 | 国产欧美一区二区白浆黑人 | 一级大片在线 | 成人片在线看 | 日韩精品成人无码专区免费 | 久久久久久久久久毛片 | vrtm在线中文字幕亚洲 | 中文字幕日韩精品在线观看 | 又大又粗又爽又黄的少妇毛片 | 成人av社区| 国产无毛在线观看 | 蜜桃一区二区 | 大伊香蕉精品视频在线天堂 | 亚洲毛片在线 | 亚洲综合无码一区二区 | 欧美人人超人人视频 | 四虎永久在线精品免费AV | 日本一区二区三区四区在线观看 | 中国内地毛片免费高清 | 日韩精品久久一区二区桃色 | 久久aa| 嫩草天堂 | A级国产大片在线免费观看 日韩一区二区中文 | 色婷婷综合久久久中字幕精品久久 | 黄污视频在线看 | 国产免费AV片在线看观看 | 国精产品一区 |