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