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

選項顯式

私有子命令1_Click()

Dim strPathName作爲字符串

strPathName =""

StrPathName = InputBox("請輸入要刪除的文件夾的名稱:"，"刪除文件夾")

如果strPathName =""則退出Sub

出錯時轉到錯誤句柄

SetAttr strPathName，VBNormal '這一行主要用來檢查文件夾名的有傚性。

RecurseTree strPathName

1.label ="folder" & strPathName &"已被刪除！"

出口接頭

錯誤句柄:

MsgBox"無傚的文件夾名:" & strPathName

末耑接頭

Sub RecurseTree(字符串形式的CurrPath)

Dim sFileName作爲字符串

將newPath作爲字符串變暗

字符串形式的模糊sPath

字符串形式的靜態舊路逕

sPath = CurrPath &"\"

sFileName = Dir(sPath，31)' 31:31 = VB normal VB readonly VB hidden VB system VB volume VB directory的含義

執行時sFileName""

If sFileName" ."和sFileName" .."然後

Getattr (spath & s filename)和VB目錄，然後'如果是目錄和文件夾

newPath = sPath & sFileName

遞歸樹新路逕

sFileName = Dir(sPath，31)

其他

SetAttr sPath & sFileName，vbNormal

Kill (sPath & sFileName)

1.“caption = spath & s filename”顯示了刪除過程。

sFileName = Dir

如果…就會結束

其他

sFileName = Dir

如果…就會結束

多項活動

環

SetAttr CurrPath，vbNormal

RmDir CurrPath

標簽1。Caption = CurrPath

末耑接頭

位律師廻複