還為VB.NET刪除文件夾的問(wèn)題煩惱嗎?在網(wǎng)上收集了許多資料，現(xiàn)在和大家就這個(gè)問(wèn)題解決一下，今天采用遞歸算法刪除帶有多級(jí)子目錄的目錄，看看下面的代碼吧。

VB.NET刪除文件夾代碼：

Option Explicit   
Private Sub Command1_Click()  
Dim strPathName As String  
strPathName = "" 
strPathName = InputBox("請(qǐng)輸入需要?jiǎng)h除的文件夾名稱(chēng)∶", "刪除文件夾")  
If strPathName = "" Then Exit Sub  
On Error GoTo ErrorHandle  
SetAttr strPathName, vbNormal '此行主要是為了檢查文件夾名稱(chēng)的有效性  
RecurseTree strPathName  
Label1.Caption = "文件夾" & strPathName & "已經(jīng)刪除！"  
Exit Sub  
ErrorHandle:  
MsgBox "無(wú)效的文件夾名稱(chēng):" & 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 '顯示刪除過(guò)程  
sFileName = Dir 
End If  
Else  
sFileName = Dir 
End If  
DoEvents  
Loop  
SetAttr CurrPath, vbNormal  
RmDir CurrPath  
Label1.Caption = CurrPath 
End Sub 

以上就VB.NET刪除文件夾的代碼，試試吧。

【編輯推薦】

1. 講述VB.NET實(shí)現(xiàn)拖動(dòng)圖片
2. 剖析VB.NET TextBox控件
3. 簡(jiǎn)單講解VB.NET ListBox控件
4. 淺析VB.NET語(yǔ)言與VB語(yǔ)言對(duì)比
5. 你是否了解VB.NET集成開(kāi)發(fā)環(huán)境