在vb中删除带子文件夹的文件夹

在vb中删除带子文件夹的文件夹,第1张

在vb中删除带子文件夹的文件夹,第2张

选项显式

私有子命令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

末端接头

位律师回复
DABAN RP主题是一个优秀的主题,极致后台体验,无插件,集成会员系统
白度搜_经验知识百科全书 » 在vb中删除带子文件夹的文件夹

0条评论

发表评论

提供最优质的资源集合

立即查看 了解详情