伊人激情av一区二区三区,亚洲国产精品一区二区制服,国产高潮流白浆喷水免费,老外插女人视频

工控軟件開發(fā)
級別: 正式會員
精華主題: 0
發(fā)帖數(shù)量: 42 個
工控威望: 89 點(diǎn)
下載積分: 504 分
在線時(shí)間: 4(小時(shí))
注冊時(shí)間: 2023-04-06
最后登錄: 2024-06-04
查看工控軟件開發(fā)的 主題 / 回貼
樓主  發(fā)表于: 2024-06-04 22:42
刪除文件夾和內(nèi)部文件2

復(fù)制代碼
  1. Function DelFolder(Str As String) As Boolean
  2. Rem RMdir的升級版本,根據(jù)目錄地址刪除最后文件夾及里面的文件
  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
我的博客,你可以先看一下我的文章和以前幫別人解決的一些技術(shù)問題。
專注VB編程開發(fā)20年的博客_CSDN博客-作品成品 開發(fā)的一些軟件,股票分析理財(cái)投資,自動編程 源碼庫領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

在线免费h视频| 精品国产综合久久久久久国| 18禁污污污无遮挡网站| 影音先锋亚洲成AⅤ无码| 欧美性享受生活在线观看| 国产女主播精品被操视频| 99久久精品男女性高爱| 黄网站色视频免费观看 | 国产ae86亚洲福利入口| 国产精品视频网站一区二区| 久久久国产动态秒拍福利| 中文字幕不卡在线观看不卡| 国产污网站在线观看15| 国语自产精品视频二区在线| 大jj视频在线观看网站| 日本女生自慰抠逼逼网站| 大鸡巴操逼内射视频网站| 虎色另类zo206yp| 国产91色综合久久无码| 久久久久久无码人妻A∨| 日韩中文字幕人妻一区二| 伊人久久东京热中文字幕| 大鸡巴插进视频| 男生和女生插插免费视频| 99热这里国产免费久久| 人妻少妇中文字幕456| 欧美一区二区三区爽大粗| 国产精品第一页亚洲精品| 激情人妻偷伦的在线视频| 天天天天天天天天操操操操| 亚洲乱码精品97久久久| 色哟哟国产成人精品免费| 国产成人无码AV色哟哟| 日韩精品一区二区三区电影| 成人免费在线观看av网| 插插插肏屄视频| 美女把腿扒开让我添视频| 欧美成人性色xxxxx| 算你色永久免费视频在线| 国产日韩欧美综合激情在线| 无码福利一区二区不卡片|