说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

采用递归算法删除带有多级子目录的目录-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
采用递归算法删除带有多级子目录的目录-VB资料

Option Explicit

Private Sub Command1_Click()
Dim strPathName As String
strPathName = ""
strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹")
If strPathName = "" Then Exit Sub

On Error GoTo ErrorHandle
SetAttr strPathName, vbNormal '此行主要是为了检查文件夹名称的有效性
RecurseTree strPathName
Label1.Caption = "文件夹" & strPathName & "已经删除!"
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

欧朋CEO:GPU加速是手机浏览器的新趋势 TOP30专访:Splashtop研发中心总经理Alex Xu 2012Q3国内App开发者半数以上入不敷出 细微之处见真章 为什么要在try-catch-finally里加大括号 独立开发者:面对攻击就要“脸皮厚+更自豪” IBM纳米光子芯片对付大数据 单个通道25Gbps AWS数据仓库服务Redshift是最好的选择吗? 又赚了一笔:微软向两公司收取Android专利费 深度解析:Android4.2系统“应用验证服务” 欧洲移动游戏大会:五大行业趋势 大揭秘:Windows Phone 8 键盘输入的8个设计精髓 朝鲜:探寻最神秘的移动互联网王国 如何让IE 10玩转响应式网站 Windows Server 2012:令CIO激动的三个新特性 高德和新浪微博战略合作 打通账号互调数据 乐观锁和悲观锁 你更钟情于哪一个? Apple索30%分成 iOS版微软SkyDrive更新搁浅 [简讯] Linux 3.7发布 开源图形卡驱动程序 高效敏捷的十大经验法则 佛瑞斯特资讯公司预测2013年云计算的十个变化 百会中小企业CRM年会成功举办 发布CRM选型指南 诺基亚创新体验中心NEIC训练团正式开班 新威胁:IE新漏洞允许网站跟踪鼠标 少编码多思考:代码越多 问题越多 [简讯] JDK 7u10发布 修复安全漏洞 搜狗茹立云:为何搜狗语音助手比Siri更精准? BlackBerry 10最终版SDK Gold发布 谷歌地图正式登陆App Store 为开发者推出SDK 你的云数据的三个最大威胁 公开叫板:Google不打算推出Win8版Gmail和Drive APP备案风波:开发者何去何从? 帮忙,如何屏闭TextBox控件的其它字符输入,只能输入数字!!!! 下的一段代码,在BCB怎是报错 大难题:在Win2000或者WinXP上安装Oracle7.3.3 ???? 一个很菜的问题:怎么查看所有的变量或属性值? 请问VB.NET如何获取IE收藏夹的位置? 迷惑不解,请教了 怎么用按钮来控制复选框的全部选中呀??? Excel中宏的问题!急 大难题:在Win2000或者WinXP上安装 Oracle7.3.3 ??? 关于窗口的大小和位置的问题 视图指针问题,高手帮忙!谢谢! 寻觅图象处理高手共同合作,欢迎朋友们去偶的站点申请免费主页空间 中秋佳节,兄弟们发Cash了吗 ? 寻觅图象处理高手共同合作,欢迎朋友们去偶的站点申请免费主页空间 寻觅图象处理高手共同合作,欢迎朋友们去偶的站点申请免费主页空间 用户控件 高手请进!!关于线程问题,本人在线等候!!! 如何禁止局域网中的MSN `×××怎样验证一个文本宽是否输入了汉字××× 为什么我的程序编译后跟没编译一样!大家救救我啊!急! JAVA发展趋势是什么? WEB服务器问题?????? 如何处理编码的问题 100分求助!关于多选框的问题!急啊!在线等!! 关于布局管理器的问题 recvfrom 的超时怎么不行呢? IIS不能访问asp文件,只能访问html文件,而且网页中的所有弹出类网页链接全都打不开(在线等) 在JSP里边怎么动态插入文件 设计物流系统应该考虑那些问题,实现那些功能,拜托 设计物流系统应该考虑那些问题,实现那些功能,拜托 php中的register_globals为off,怎么获得url中传递参数 设计物流系统应该考虑那些问题,实现那些功能,拜托 上海日記:震撼 这是为什么? 在JBuilder 下 如何单步debug SOAP 服务器端程序? 求助:手机短信是以什么编码发送的呢?UTF还是普通的GB2312? 另外移动和联通用的编码一样么? 急求《c#高级编程》2nd 英文版! windows 2003 下我的p4x266e 板载声卡驱动好了,但是没有声音,怎么解决? SOS:菜鸟问题! 如何来判断字段类型????初级问题..... 求助:请问vbscript什么函数可以让一个单精度的数保留两位小数 wps2000加密文件问题 程序员调查 C/S下如何访问ODBC数据库,客户端不配置任何东西。 大家有何看法???????????? 程序在系统启动时起动,如何做? 局域網計算機間訪問問題﹐進來看看﹗﹗ 为什么我向数据库插入数字时总是出错? 做网页是用切片好做还是用表格好? ftp代码,求救 中秋节,你和MM咋过的,有过风花雪月的事吗? 137053687500怎么读作 用大刀阔斧造句 大刀阔斧 造句大刀阔斧 造句韬光养晦 造句 8400301读作什么(该怎么读) 自契丹侵取燕蓟以北是什么历史现象 函数y=sin^x+2asinx-a-2(a∈R)的最小值为-3,求a的值 为什么山东一带被称为齐鲁大地?北京一带被称为燕蓟之地? 1.函数y=x^2+3x的自变量x的取值范围 2.图象上点(x,y)的坐标构成的集合 如何提高自己见识我从小就不喜欢看新闻,文学书看得也很少,到大学才知道自己多么没内涵.也很不会说话,因此我较少和别人谈话,这可能与知识面有关吧,因为别人说的话题我都不了解啊, 如何增长自己的见识我觉得自己的见识太少,每次和别人聊天的时候,别人问我问题,甚至是一些简单的常识,唉,我该怎么办呢?如何才能增长我的见识呢? 他们都说我傻、没有见识、没见过世面 怎么让自己见多识广? 医生举报副县长公款旅游 开发商10万第九届杭州市十大道德模范(平民英雄)每天倾倒80吨工业垃圾 温州双岙村遭默克尔遭美国监听 德议员称斯诺登愿协杭州发布十大产业高层次人才需求榜爱心的哥往返江山衢州接送尿毒症患者只叙利亚按期销毁化武设施台风“罗莎”进入南海 局部海域将现5长沙机场4个航班受炸弹威胁 其中两个战士吐槽办证难:户口20年没办好 参三位工人井底昏倒 德清民警王天辰冒死【推荐】 过年回家,不要对父母说的十全球同档中最好?汪峰原创品牌fiil聚焦全球扬帆海外 魔方网海外交流大会再发那条裙子的全拉黑了!卡卡补缴200万欧税款将判无罪FoamPosite Pro “Gu【星座运势】人到中年,运势渐入佳境的佩帅:与塞维利亚的3分非常重要司马懿的亲兄弟竟不支持司马氏篡魏!别再说男生不会带小孩!同志父亲与女儿adidas Yeezy Boost囧受重生之奥法之神天下风雷厚重如山百炼宗师武神鼎未央歌背负阳光神魔乱宇宙军火商颜似昭云吕梁旅游文山旅游海宁旅游巫山旅游波密旅游黔西南旅游樟木旅游西陵峡风景名胜区旅游宿迁旅游武威旅游阿克苏旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘