在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

　　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

上一篇： StatusBar显示数据库的属性
下一篇： 教你在CoolBar中显示指定的图片

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有