在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

末端接头