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

VB.NET刪除文件夾代碼：

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 & "已經(jīng)刪除！"  
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.NET刪除文件夾的代碼，試試吧。

【編輯推薦】

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