VB.NET中怎么刪除文件夾

本篇文章給大家分享的是有關VB.NET中怎么刪除文件夾，小編覺得挺實用的，因此分享給大家學習，希望大家閱讀完這篇文章后可以有所收獲，話不多說，跟著小編一起來看看吧。

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 & "已經刪除！"  
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中怎么刪除文件夾，小編相信有部分知識點可能是我們日常工作會見到或用到的。希望你能通過這篇文章學到更多知識。更多詳情敬請關注億速云行業資訊頻道。