97视频免费观看2区_无码A级毛片免费视频内谢_JAPANESEXXXX日本熟妇伦视频_国产精品主播在线_黄色大片视频观看性感_久久精品国际

工控軟件開發(fā)
級(jí)別: 正式會(huì)員
精華主題: 0
發(fā)帖數(shù)量: 42 個(gè)
工控威望: 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í)版本,根據(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   '刪除多級(jí)目錄成功
  13.     Set fs = Nothing
  14.     Set f = Nothing
  15.     Exit Function
  16. ele:
  17.     DelFolder = False  '刪除多級(jí)目錄失敗
  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)投資,自動(dòng)編程 源碼庫領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

主站蜘蛛池模板: 影音先锋日韩有码 | 一区一区 | 99热亚洲 | 日韩精品中文字幕一区 | 久久ri精品| 国产午夜精品一区二区 | 国产成人av一区二区三区 | 人人澡人人草 | 亚洲一区二区三区国产精品 | 西西人体大胆啪啪偷拍 | 视频丨9l丨白浆 | 四虎影视精品成人 | 亚洲国产精品一区二区久久亚洲午夜 | 91在现看 | jlzz大全高潮多水 | 嫩草在线播放 | 粗长挺进新婚人妻小怡 | www.17c.com91嫩草 免费国产黄色网址 | 亚洲国产精品成人精品无码区在线 | japanxxxxhd videos日本| 日本黄大片一区二区三区 | 国产精品自在在线午夜蜜芽TV在线 | 国产亚洲精品久久久久久无挡照片 | 亚洲天堂一二三 | 亚洲AV无码一区二区乱子伦 | 欧美8-18sex videos | 国产人妻人伦精品1国产 | 777777777妇女亚洲 | 国产91会所女技师在线观 | 久久高清国产 | 台湾成人av | 日韩人妻系列无码专区 | 老司机深夜18禁污污网站 | 少妇毛片一区二区三区 | 公和熄小婷乱中文字幕 | 国产精品视频在线观看免费 | 天天拍天天插 | 久久成人成狠狠爱综合网 | 久久综合无码中文字幕无码ts | 伊人95| ts另类国产人妖视频一区二区 |