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

页面导航:首页 > 软件编程 > vb.net > VB.NET删除文件夹实现方法介绍

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

来源: 作者: 时间:2016-01-18 16:54 【

编程人员在使用了VB.NET语言进行编程时,就会发现这款语言可以极大程度的提高我们的程序开发效率。比如在对文件夹的操作方面等等。那么今天大家就可以通过对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删除文件夹的具体方法就为大家介绍到这里

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<