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删除文件夹的具体方法就为大家介绍到这里。

【编辑推荐】

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