在vb中删除带子文件夹的文件夹

采用递归算法删除带有多级子目录的目录 
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

您可能感兴趣的文章：
在vb中删除带子文件夹的文件夹
dos下删除文件夹和文件(包括顽固文件)的方法介绍
常用dos操作命令
VBS脚本运行库手册(2)-管理文件夹
dos命令行删除带.的文件夹(畸形文件夹)
PHP如何删除一个路径下的所有文件夹和文件？
ASP 3.0高级编程（二十一）
asp.net Directory.Exists判断文件夹是否存在代码
IE11浏览器中添加到收藏夹、查看和整理收藏夹
删除指定文件夹中所有文件的php代码