久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

　　Option Explicit

　　Private Sub Command1_Click()

　　Dim strPathName As String

　　strPathName = ""

　　strPathName = InputBox("請(qǐng)輸入需要?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