VB.NET删除文件夹实现方法介绍

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