編程人員在使用了VB.NET語(yǔ)言進(jìn)行編程時(shí)，就會(huì)發(fā)現(xiàn)這款語(yǔ)言可以極大程度的提高我們的程序開發(fā)效率。比如在對(duì)文件夾的操作方面等等。那么今天大家就可以通過對(duì)VB.NET刪除文件夾的操作的解讀，來(lái)具體了解這一特性。

VB.NET刪除文件夾的操作是采用遞歸算法刪除帶有多級(jí)子目錄的目錄

Option Explicit   
Private Sub Command1_Click()  
Dim strPathName As String  
strPathName = "" 
strPathName = InputBox("請(qǐng)輸入需要?jiǎng)h除的文件夾名稱∶", "刪除文件夾")  
If strPathName = "" Then Exit Sub  
On Error GoTo ErrorHandle  
SetAttr strPathName, vbNormal '此行主要是為了檢查文件夾名稱的有效性  
RecurseTree strPathName  
Label1.Caption = "文件夾" & strPathName & "已經(jīng)刪除！"  
Exit Sub  
ErrorHandle:  
MsgBox "無(wú)效的文件夾名稱:" & 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安裝工程具體應(yīng)用方法解析
2. VB.NET對(duì)象序列劇本概念剖析
3. VB.NET局部變量類型推測(cè)基本概念剖析
4. VB.NET擴(kuò)展方法概念詳解
5. VB.NET查詢包含威力強(qiáng)大