编程人员在使用了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删除文件夹的具体方法就为大家介绍到这里。

【编辑推荐】

1. VB.NET安装工程具体应用方法解析
2. VB.NET对象序列剧本概念剖析
3. VB.NET局部变量类型推测基本概念剖析
4. VB.NET扩展方法概念详解
5. VB.NET查询包含威力强大