降血压常用西药:用递归算法删除带有多级子目录的目录
来源:百度文库 编辑:中财网 时间:2024/05/03 06:07:15
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
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 建立多级目录
如何在DOS中删除一文件下的所有非空的目录和子目录?
急!在XP的DOS环境下,哪个命令可以批量删除目录及子目录?
在DOS下怎么删除目录里的所有文件和子目录
一个递归算法的实现问题
程序员面试遇到的递归算法题
目录 子目录与文件的差别
怎么删除删除Windows安装目录下的*.PWL密码文件及Profiles子目录下的所有个人信息文件
绿卡多级算法
c 源程序:4.输入一个整数,用递归的算法实现将整数倒序输出。
输入一个整数,用递归的算法实现将整数倒序输出。
递归算法:它主要用途!
汉诺塔递归算法 prolog
用键盘而不是鼠标怎样打开树状目录下的子目录?
求单链表的长度的递归算法(C语言格式)
a的n次幂的非递归算法
请问如何使用递归的算法访问两个table数据.
一个有关求解汉诺塔递归算法的问题?
设计递归问题的非递归算法一般需要用到__________机制
有关于多级目录
用递归算法实现1-N中任全R个数