在vb中刪除帶子文件夾的文件夾

Option Explicit
    Private Sub Command1_Click()
    Dim strPathName As String
    strPathName = ""
    strPathName = InputBox("請輸入需要?jiǎng)h除的文件夾名稱∶", "刪除文件夾")
    If strPathName = "" Then Exit Sub　　
    On Error GoTo ErrorHandle
    SetAttr strPathName, VBNormal '此行主要是為了檢查文件夾名稱的有效性
    RecurseTree strPathName
    Label1.Caption = "文件夾" & strPathName & "已經(jīng)刪除！"
    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