導航:首頁 > 文件管理 > vb如何刪除文件夾

vb如何刪除文件夾

發布時間:2025-01-13 16:59:02

Ⅰ vb刪除文件

3個方法可以實現:
1:
kill 文件 '刪除文件
rmdir 文件夾 '刪除文件夾

如果想要使用 RmDir 來刪除一個含有文件的目錄版或文件夾,則權會發生錯誤。在試圖刪除目錄或文件夾之前,先使用 Kill 語句來刪除所有文件。

2:
或者用對象的方法:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile 刪除文件
fs.deletefolder 刪除文件夾

3:
用API也可以辦到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

deletefile 文件名 '強制刪除一個文件

Ⅱ VB刪除文件夾

引用FSO(Microsoft Scripting Runtime),然後寫出
Dim FSO As New FileSystemObject
FSO.DeleteFolder ThePath 'ThePath即文件夾路徑,而且不必先清空文件夾
或:(不必引用FSO)
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder ThePath 'ThePath即文件夾路徑,而且不必先清空文件夾
試一試

Ⅲ vb怎麼刪除文件夾裡面的所有文件

直接調用DOS命令:
shell "cmd /C del /Q e:\aa\*.*" ,vbhide
本語句使用了/Q參數,del命令的其他參數為:
/P 刪除每一個文件之前提專示確認。屬
/F 強制刪除只讀文件。
/S 從所有子目錄刪除指定文件。
/Q 安靜模式。刪除全局通配符時,不要求確認。
/A 根據屬性選擇要刪除的文件。

用KILL,不能刪除文件夾,只能刪除文件:
kill "D:\aa\*.*"

2、
d="D:\aa\"
f=dir(d & "*.*")
do while f<>""
kill d & f
f=dir
loop

Ⅳ VB如何刪除指定文件夾內的所有文件和子文件

Option Explicit

Private Sub Command1_Click()
Dim strPathName As String
strPathName = ""
strPathName = InputBox("請輸入需要刪除的文件夾名稱∶", "刪除文件夾")
If strPathName = "" Then Exit Sub

On Error GoTo ErrorHandle
SetAttr strPathName, vbNormal '此行主要是為了檢查文件夾名稱的有效性
RecurseTree strPathName
Label1.Caption = "文件夾" & strPathName & "已經刪除!"
Exit Sub
ErrorHandle:
MsgBox "無效的文件夾名稱:" & strPathName
End Sub

Sub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As String

sPath = CurrPath & "\"

sFileName = Dir(sPath, 31) '31的含義∶31=vbNormal+vbReadOnly+vbHidden+vbSystem+vbVolume+vbDirectory
Do While sFileName <> ""
If sFileName <> "." And sFileName <> ".." Then
If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目錄和文件夾
newPath = sPath & sFileName
RecurseTree newPath
sFileName = Dir(sPath, 31)
Else
SetAttr sPath & sFileName, vbNormal
Kill (sPath & sFileName)
Label1.Caption = sPath & sFileName '顯示刪除過程
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop
SetAttr CurrPath, vbNormal
RmDir CurrPath
Label1.Caption = CurrPath
End Sub

閱讀全文

與vb如何刪除文件夾相關的資料

熱點內容
maya粒子表達式教程 瀏覽:84
抖音小視頻如何掛app 瀏覽:283
cad怎麼設置替補文件 瀏覽:790
win10啟動文件是空的 瀏覽:397
jk網站有哪些 瀏覽:134
學編程和3d哪個更好 瀏覽:932
win10移動硬碟文件無法打開 瀏覽:385
文件名是亂碼還刪不掉 瀏覽:643
蘋果鍵盤怎麼打開任務管理器 瀏覽:437
手機桌面文件名字大全 瀏覽:334
tplink默認無線密碼是多少 瀏覽:33
ipaddgm文件 瀏覽:99
lua語言編程用哪個平台 瀏覽:272
政采雲如何導出pdf投標文件 瀏覽:529
php獲取postjson數據 瀏覽:551
javatimetask 瀏覽:16
編程的話要什麼證件 瀏覽:94
錢脈通微信多開 瀏覽:878
中學生學編程哪個培訓機構好 瀏覽:852
榮耀路由TV設置文件共享錯誤 瀏覽:525

友情鏈接