91中文字幕网,91免费视频观看,91成品视频

工控人家園 綜合討論 VB6函數(shù)分享-刪除目錄和里面的文件DelFolder2

工控軟件開發(fā)

級(jí)別: 正式會(huì)員

發(fā)送短信
加為好友
QQ聯(lián)系
阿里旺旺

精華主題: 0
發(fā)帖數(shù)量: 42 個(gè)
工控威望: 89 點(diǎn)
下載積分: 504 分
在線時(shí)間: 4(小時(shí))
注冊(cè)時(shí)間: 2023-04-06
最后登錄: 2024-06-04
查看工控軟件開發(fā)的主題 / 回貼

樓主發(fā)表于: 2024-06-04 22:42

全看 | 小中大

刪除文件夾和內(nèi)部文件2

復(fù)制代碼

Function DelFolder(Str As String) As Boolean
Rem RMdir的升級(jí)版本，根據(jù)目錄地址刪除最后文件夾及里面的文件
Rem 使用方法Call RMDirs("D:\test\test2\test3")
Rem if RMDirs("D:\test\test2\test3")=True then doSomething else doOtherSomething
Err.Clear
On Error GoTo ele
Dim fs, f
If Len(Str) = 0 Then Exit Function
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Str)
f.Delete
DelFolder = True '刪除多級(jí)目錄成功
Set fs = Nothing
Set f = Nothing
Exit Function
ele:
DelFolder = False '刪除多級(jí)目錄失敗
Set fs = Nothing
Set f = Nothing
'MsgBox Err.number & Err.Description
End Function

我的博客，你可以先看一下我的文章和以前幫別人解決的一些技術(shù)問(wèn)題。
專注VB編程開發(fā)20年的博客_CSDN博客-作品成品開發(fā)的一些軟件,股票分析理財(cái)投資,自動(dòng)編程源碼庫(kù)領(lǐng)域博主

https://blog.csdn.net/xiaoyao961

工控人家園 綜合討論 VB6函數(shù)分享-刪除目錄和里面的文件DelFolder2

http://m.gangbaxian.cn
訪問(wèn)內(nèi)容超出本站范圍，不能確定是否安全
繼續(xù)訪問(wèn)	取消訪問(wèn)

久久免费视频在线观看6_成人精品一区亚洲午夜久久久_久久www视频_天天干干夜夜_日本一区二区三区视频在线播放_亚洲va视频