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

采用递归算法删除带有多级子目录的目录-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

软件项目为何会失败? 严澜:搭建高可用的MongoDB集群(二) 微软、思科、Google、Facebook等联合推出CII 狙击“Heartbleed” 这是个神奇的国度:细数五大印度裔IT牛人CEO Atmel CMO Sander Arts眼中的创客运动 Unity“三巨头”:全心全意为开发者服务 全球移动广告现状报告:哪种平台、应用最赚钱? 《近匠》Smart Wallit,钱包找不到了?给它“打个电话”吧 Mozilla新CTO:JavaScript、 Firefox OS专家Andreas Gal 李彦宏发布百度大数据引擎,及与谷歌、亚马逊等类似项目对比 大数据领域,实时打击欺诈犯罪的4个战场 一周消息树:谷歌Project Ara,将开启下一个智能手机时代 数据恢复服务商的6个最佳实践 【走近讲师】谭晓生:魔高一尺道高一丈,360基于大数据的网络攻击检测 一周热点:摩尔定律让位于贝索斯定律 阿里巴巴集团CTO王坚确认出席第六届中国云计算大会 【走近讲师】青云甘泉:混合云的构建及其对企业的帮助 RadiumOne创始人兼CEO因家暴被公司解雇 3D打印狂潮:可检测皮肤疾病的低价手机显微镜 浅谈导航设计,开发者必备的十大实用技巧 【云先锋 41】上海越诚:基于云服务的建站类iService软件超市 董西成:Hadoop将在高速发展和完善中扩大优势! 【走近讲师】 华云数据郁珉:公有云市场八仙过海 价格不是唯一标准! Facebook、Twitter、Google移动广告之争 开发者的黄金时代=运维人员的恶梦? 研发团队平稳度过“从小到大”并非易事 诺基亚品牌手机不久将消失 Stephen Elop回应不是木马 看七家科技公司Logo的最初模样 移动UI框架Fries:私人定制最Sexy的用户界面 必须Mark!最佳HTML5应用开发工具推荐 百度技术开放日感悟:看百度如何获取大数据时代的“船票” 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? WinCE.NET 系统上如何拷屏 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页?怎么答题 一项工程甲单独干需10天,乙独干需8天,现在甲先做2天,剩下的两队合作还需几天? 怎么写通讯稿,最好来篇范文,我在供应部,领导叫写一篇关于电煤的通讯稿, 一本小说,每天看45页,第16天看完;如果每天看54页,第14天就看完了,这本小说最多几页,最少呢? 一项工程,如果单独做,甲队需8天,乙队需10天,两队合干了一段时间后,还剩下这项工程的三分之二没有完成.甲、乙两队合干了几天 陈叔叔在一家公司上班下图是他一个月的支出 求这个月的总支出是多少,和伙食费是多少元 双向自动扶梯一层到二层,两个扶梯梯级宽度都是800,三十度倾斜角度,提升高度为4200那么土建时,二层预留洞口宽度为多少,二层顶端是否要留得大点,一层基坑的大小是多少? 1.下面是红光有限公司2006年四个季度的收入与支出情况统计图.单位:万元 四季度收入:800.400.500.900.支出:600.300.300.500 .(1)分别计算出每个季度支出各占本季度收入的几分之几.(2)比较 一本小说,如果每天看45页,第十六天看完;如果每天看54页第14天看完.这本小说最多有几页?最少呢? 巍巍中山陵第9段描写了哪里的景色 怎样写通讯稿 我读1本书第1天读了10页以后每天都比前一天多读2页第16天读28页正好读完 这本书共多少? 哪位能将《巍巍中山陵》书后习题答案告诉偶,万谢 竞选纪律委员发言稿 有关 崇尚科学,反对邪教 的征文800到1000字.麻烦写得水平高一些吧. 巍巍中山陵 写祭堂用了什么说明顺序 急具体的空间顺序,比如说由内到外什么的,是写祭堂,不是整体写中山陵,要具体的空间顺序,急 在一个底面半径是10厘米的圆柱形杯中装了一些水,把一个底面半径是5厘米的圆锥形铁锥完全浸入水中,水面上升了1.2厘米,这个圆锥形铁锥的高是多少? 一项工程甲队独做8天完成,乙队独做10天完成,甲乙合干三天,乙队另有任务,甲队还要干几天才能干完这工程高手来解 当.时,.而当...时,.造句(《巍巍中山陵》第八段 仿写) 在一个底面半径是10厘米的圆柱形杯中注满水,水底放了一个底面半径为5厘米的圆锥形物体,当这个物体从水中取出后,杯里水面下降了6毫米,这个物体的高是多少? 小东图书本数的5分之3等于小强图书的3分之2,小东与小强图书质量比是多少 去澳门考托福需要准备什么!本周六就要去澳门考托福了!由于是第一次 自己去 所以也不知道该准备什么!请问要带什么不要带什么呢!除了身份证护照之外有什么证明的呢?就是需不需要用张纸 通讯稿与新闻稿的区别是什么 小刚和小强看同一本书,小刚还有19页没看,小强还有14页没有看,他们俩()看的页数多. 一个底面直径是20厘米的圆柱形容器里面装有一些水,把一块铁块完全浸没在水中,水面上升了3厘米,这块铁块的体积是多少? 竞选纪律委员演讲稿 中山陵怎么走? 帮忙写个作文开头和结尾,题目《目光,助我前行》作文的要求是“题目中含有‘目光’一词”.我想写体育课时各种目光:同学们取笑我体育不及格的目光、老师失望的目光、还有朋友鼓励的 通讯稿与新闻稿有区别吗? 中山陵怎么去 找地震中的师生情班会主持词?快 足球赛新闻稿算是通讯稿么? 中山陵的地理位置【要简短】 专家帮忙给我托福作文评分你认为人们都是为了什么上大学的,就是ibt的第一个独立作文题目.my version:Basically,university and college is a place for learning,trying and enjoying .With the extension of enrollment of s 一只半母鸡在一天半里生一个半蛋,六只母鸡在六天里生几个蛋? 解释! 用什么去刺激蟋蟀须,让它们打架 写了一篇托福作文,希望能得到一些意见和建议,文章主要都是自己发挥,不太想用模板,觉得这样会有些枯燥,而且对长期的写作帮助不大.所以写得比较随意,可能问题会比较多,虚心赐教,People tod 东方超市决定将某种商品按原价的80%卖出,这样所得的利润就只有原价的40%.已知这种商品进价是每个四元,原计划可获得利润600原,这种商品共多少个?我们还没学过二元一次方程,最好是算术法, 蟋蟀吃什么?怎么看雌雄?现在养最多活几天? 关于四川地震的中队主题队会结尾串词怎么写我现在初1,不用太长,也不要太短, 商店决定将某种商品按原价的80%卖出,这样所得到的利润就只有原计划的40%.已知这种商品的进价是每个4元,原计划可获利润600元,那么这种商品共有多少个?不要列方程,算术法加十分 巍巍中山陵课文问题吕彦设计为什么能脱颖而出?为什么要介绍大平台与入口石坊垂直高度差? 清明节主题班会主持词要求清明节主题班会的主持词! 商场决定将某种商品按照原价的80%卖出,这样所得利润就只有原计划的40%.已知这种商品的进价是每个4元,原 中山陵简介(200字以内)不要提到孙中山 在一个底面半径是6分米盛满水的圆柱形容器中浸没一个底面半径是3分米的圆锥形铁锥,当铁锥被取出后,容器中的水面下降了2分米,求铁锥的高?急 商店决定将某种商品按定价的八折卖出,这样所得利润就只有原来的40%.已知这种商品的进价是每个5元,原计划可获利润800元,那么这种商品共有()个. 蟋蟀会因为吃的而打架吗 中山陵简介 100字 在一个底面半径是6分米盛满水的圆柱形容器中浸没一个底面半径是3分米的圆锥形铁锥,当铁锥被取之后,容器中的水面下降2分米,求铁锥的高? 有一本书,原计划每天看20页,如果每天多看5页就提前2天看完,问这本书有多少页?请不用方程式解题,并讲出过程, 看风识天气的谚语 请牛人指点下英语四级怎么复习能过啊 我基础不好基础就是十分不好 蟋蟀为什么爱打架我要做问题,请帮我! 中山陵简介 50字100以内就可以 对从事热力、电力、燃气、自来水等公共事业,怎样征收增值税?与销售数量有关的能不能举个例子呢? 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页? 关于梦的作文.是梦,不是梦想. 译英语:自建房虽然通了电,但没有一条像样的路,没有自来水,没有公厕,没有煤气和暖气. 男子把10公斤黄金扔进垃圾场 当地掀世界最高人找到真爱将结婚 两人相差7美将军称驻阿富汗部队将经由俄罗斯领空美国官员:奥巴马早知国安局监听默克尔世界最高人找到真爱将结婚 两人相差7以总理:伊朗有能力在数周内提炼武器级塞尔维亚为铁托遗孀举行国葬 2万多人美国采花大盗将获释搬到居民区 遭民众日本将启用自卫队军官任国家安全保障局昆西 琼斯向杰克逊信托人索赔6080潘基文强烈谴责刚果(金)反政府武装袭河南济源回应7公里6个“收费站”称非媒体称养老金并轨已无悬念 执行路线图阿根廷国会选举受瞩目 现总统或丧失部加拿大机场现可疑包裹 警方搜查机场附格陵兰拟向中澳开放铀矿与稀土 仍需丹美国官员:奥巴马早知国安局监听默克尔浙江高校获专业设置“自主权\" 不再网上查询服务试点扩容 信用上网隐私如冀中星行政起诉东莞政府案立案漫步小樽:静谧恬美的浪漫之旅(组图)[社论]干训所,多少腐败假汝之名?[街谈]以爱救狗易,以理服人难诚信 让成都下岗女工蜕变为创业明星世界杯混乱 让球王很担忧四川成都:乘客重病 司机全力救助兴邦产业致力打造受尊敬的世界级互联网低碳先行示范区 我市首批确定5个关爱留守儿童 帮妈妈返乡就业开拍的剧减少 部分剧停拍德国《欧洲新报》:72小时过境免签 点亮别人的路 照亮自己的心食品安全宣传周发布《食品安全四川宣言突出休闲特色,成都礼品展六月揭幕丽思卡尔顿将开启意大利美食周7月10日 填本科提前批征集志愿潮人足球赛邀您来参与2014 跟我一起去安顺有个小药水 专克皮肤病中纪委网站:纪委书记主动替换人质传递正能量 《天上的菊美》《兰辉》川红色外观船型底座 LG第二代观韵安卓
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘