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

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

智能手机≠智能家居!我们要的究竟是什么? 亚信大数据事业部总经理张灏:打通各行业数据壁垒 让大数据变现畅通无阻 Web App和Native App不是生死之争,而是可以和平共处! 微信之父张小龙说微信坚持“去中心化”,这样真的好吗? 亚信CFO武军谈进军海外市场成功经验 前瞻性思维是开路先峰 Swift,任重而道远! DevOps系统的变迁 玩转Docker镜像 “扫描建模”速建AR应用 Vuforia 4.0 SDK更新 硅谷里的外星人:纵观Reddit十年风雨路 不见不散 Cloud Foundry Meetup活动将首次走进杭州 独立开发者:新手做2D手游该用哪些工具? 求安全化危机!Uber研发生物识别技术、聘请前亚马逊运营 JavaScript社区开发者调查:服务端JS盛行 AngularJS使用者最多 去中心化、去中介化,微信商业化路径清晰了吗? 微信企业号认证简化了,你造吗? 专访瀚思安信联合创始人:大数据技术助力企业实现主动智能防御 挑选IBM Bluemix作为云平台的10大理由 10年技术积累成就极光压缩引擎,欧朋流量宝5.0面世 【图文实录】12月19日CTO俱乐部走进杭州 mlpack:可伸缩C++机器学习库 本地项目托管将死?类GitHub站点永存! 2014年讨论最多的编程语言:JavaScript称霸 移动Web应用UI框架大比拼:Ionic vs. Famo.us vs. F7 vs. OnsenUI 面包旅行CTO薛亮:做旅游与社交有机结合的先行者 盘点开发者最喜爱的Swift技巧 2017年,开发者还能从移动广告中收获什么? 《近匠》茄子快传,让设备更好地连接 面向移动应用程序的DevOps五大挑战和十个最佳实践 Ruby 2.2.0发布,支持回收Symbol类型对象 听UnitedStack、IBM、HP专家如何谈“OpenStack 存储”技术 SQL SERVER的同步问题 怎样在DLL中添加一个不可见部件??? 请帮忙给个思路(分再加) 关于WIN2K管理员密码 查找时,随便符合一个字段中的条件,是否可以用or ? 关于读取oracle中clob字段的中文信息的问题 如何让IE6不显示保存图片按钮? 時間比較問題 如何固定DBGridEh的列? 如何在vb.net里面使用资源文件 关于WIN2K管理员密码 在tomcat服务器上发布soap的问题,高分相赠 JSP在websphere4.0中的应用问题! 急,关于COM调用的问题 请问各位C#有DBChart控件吗????????? select的问题 有没有好一些的MP3播放器推荐 关于声音的问题…………等…… xml是不是马上必学的?????? 呜呼!我巍巍中华,铿锵汉字,终将进博物馆了吗? 创建虚拟目录,在另一计算机上的共享位置? 用javascript怎样remove掉数组中的一个元素???急 存储过程问题 java基础类 网络错误718,是什么问题呢?分不够可以再给,急呀!! 怎样加大数据库的连接时间,因为通过远程连接,所以想加大连接时间 紧急求救? 这样的弹性页面能实现吗? 100分求"公司网络管理办法" 寻开发公司 请帮我,关于从WIN2000到WIN98的问题(在线等) 关于firework的问题?急急急!!!!!!!!!!!! 用VC.net应该怎么调试.cpp文件 老有人反复发一些老帖子,早被别人转了几百遍了,烦啊! 展示 怎样删除页面布局表格 或 页面布局单元 各位大侠,外挂里的自动捡物是怎么实现的? 如何在运行中删除动态创建的 POPUPMENU 的某个菜单项呢? 安装包怎么做? 怎样将mysql数据库里某个字段的所有值绑定到form的<select>选项里。 我的com+组件两台机器间不能执行方法 怎样获得InputBox、InputQuery的值? 我用的光盘版的maya5.0,serial number不对啊?谁有可以用的啊? 请教:MPP文档是什么概念啊? 哪里有VF做的工资管理系统下载 怎样在一个中英文混合的字符串中添加回车键后而不出乱字符 救命啊!!!!! 关于ocx的问题 如何响应Esc键按下? 寻开发公司 EVB 如何修改 Grid的字体? 急配电子元件!电阻-N-公司里传真/扫描/复印一体机坏了,原因是应该用100V电源的直接插到了200V的电源插座上,东西是日本进口的.请电子行业朋友们告诉我哪里可以买到以下电子元件:电 我国有什么海洋的科研成果? 声称的近义词最正确的 会计中,如何更容易理解权责发生制与收付实现制的区别? 有关曝的成语,曝的意思必须是“晒” 声明的近义词是什么 “肥田出瘪稻”请问在经济学中是什么现象啊? 生命教育要从小开始? 电解电容上标的多少v是什么,标的一样的电容电压一样吗主板上两个标一样的电容,用万用表测量电压都不一样,一个十几v,一个二十几v. 新的生命从何时开始 水力学的三大方程是什么?最好把式子列出来 陈述的近义词是什么 蜘可以组哪些词? 第五签、中签丑宫:【刘晨遇仙】 求姻缘 此签何解第五签、中签丑宫:【刘晨遇仙】 一锥凿地要求泉,努力求之得最难;无意偶然遇知己,相逢携手上青天.诗意:此卦锥地求泉之象.凡事先难 蛛有什么组词 蜘蛛的蜘可以组什么词 请大师帮忙解命 解姻缘 观音灵签 第五签、中签丑宫:【刘晨遇仙】我农历1982年(第一个4月)23日 子时出生,男性,命运,婚姻如何 这几年家里帮相了几个女孩子到交情没有多久都是人 关于纺纱学配棉的问题用129(含杂1.8%)50%,229(含杂2.1%)30%,331(含杂1.5%)10%,回花10%配棉,试计算:(1)平均纤维长度(2)平均等级(3)平均含杂率我要问的是回花的纤维长度,等级是多少, PS中旋转并复制方式? 生命是什么? 生命为什么? 斜塔上的实验 第17段对教堂的环境描写有什么表达作用?_ 在PS中怎样才能完成旋转复制 为什么人一出生就开始走向生命的尽头 同样是常见的吃草动物,牛,羊,马,驴,为什么驴的药用价值最大? 在PS里要以中心旋转复制怎么做? 地球人都知道我爱上了你 用英语怎么说 蛛能组什么词 青蛙是什么发育?变态还是不变态? 解签,求事业!一锥卓地要求泉,努力求之得最难;无意偶然遇知己,相逢携手上青天.欲望心事 西方可求曰:不如英动 立地可谋 生命的死亡就是开始之前的状态吗,为什么? 腰为10,底长为6的等腰三角形的内切圆在两腰上的切点间的距离为?要解题思路和过程~~~ 第五签,一锥卓地要求泉,努力求之得最难,无意偶然遇知己,相逢携手上青天,解欲望心事,西方可求 《地球人都知道我爱上了你》歌词 等腰三角形ABC的内切圆,切点分别为D E F,已知三角形ABC的两边长是4和6,求FC 一锥卓地要求泉,努力求之得最难.无意偶然遇知己,相遇携手上青天. "地球人都知道我爱上了你"是谁唱的啊在线等,谢谢啊 证明 等腰三角形的内切圆与底边的切点是底边的中点 凌晨3点,看到悬吊着的蜘蛛在头上,过了会又爬到身上,这是什么预兆啊?.. 为什么生命终于有一天要结束,那为何还要开始呢? 谁能给总结下 圆周运动,匀速圆周运动等运动的不同点我要考试了,匀速圆周运动这一部分还分不清, 夸同学作文好用什么四字词语 天蝎座的格言? 申请住房公积金贷款应具备什么条件 《过草地》张爱萍 这首诗的意思这首诗是有关于红军长征的诗,有谁知道这首诗的意思吗?我有急用! 坏蛋是怎样练成的经典名言 申请住房公积金贷款需要具备哪些条件 如何面对困难的诗歌《过草地》 如果反比例函数Y=K/X的图象分布在第一.三象限,则直线Y=K(X-2)经过第_____象限. 怎么画旋转图形 底力9是啥意思?弹幕里的 已知反比例函数的图象经过点A(3,-4).(1)这个函数的图象分布在哪些象限?在图像的每一支上,y随x的增大如何变化?(2)点B(-3,4),C(-2,6)和点D(3,4)是否在这个函数的图像上? 公积金贷款的条件是什么? 海洋科研属于工业么 高山流水 【急!】伯牙鼓琴,其友钟子期听之.方鼓琴而志在太山,钟子期曰:“善哉乎鼓琴!巍巍乎若太山!”少选之间,而志在流水,钟子期复曰:“善哉乎鼓琴!汤汤乎若流水!”钟子期死,伯牙破 住房公积金贷款条件是什么? 力竭斯底是什么意思啊? 蛛能组词什么 住房公积金贷款的条件我现在已经上缴3个月的住房公积金,因急需买房,已经向公司申请补缴满12个月的住房公积金,也就是补缴了9个月的,我想问一下这算不算连续正常缴纳满12个月?如果不算 那个底力究竟是什么公式计算的呀?激励哥,底力8级,气力120,满血时轰杂兵5000+,40%HP发动了底力,没有发动异性生命体(气力130).同一招,同一武器,同一杂兵,必定会心,12000+.有没有高手告诉怎么 他们说得什么海子体,韩寒体 是什么东西啊 英《卫报》发布机密信息 卡梅伦欲将其日本两男子涉嫌介绍未成年少女夜总会打日自明党提议福岛核电站追加除污费应由湖南男子编造长沙机场“诈弹”虚假恐怖北京今冬预计11月7日起试供暖 保证韩国会外交统一委大举访问开城 韩媒称印度央行再度加息抑通胀飓风袭击德国致多地交通瘫痪 乘客被困德国农场主检查马厩时发现自家马匹驮回美分析称受教育程度越高越易于维持婚姻“10.25”故意伤害案后续 重伤医企业家买富豪榜 富豪榜背后的秘密女护士遭劫持自救 劫持男子已被带走深圳故意杀人警察一审被判死缓 当庭表中央军委部署巡视工作 成立巡视工作领国际晚班车:中国军机连续3天飞越冲绳港媒:联合国作用无可替代 改革迫在眉浙江卫生厅副厅长回应杀医案:医疗场所国家公务员考试报名审查结束 浙江8万风行网“全媒体大数据营销平台”惊艳2李旭利“老鼠仓”案在沪终审定音 法院春运首日票窗口开售 广州火车站售票厅浙江西湖进行苔藓实验 或将成为首个苔西安一家三口被杀案告破 嫌犯指认现场上海大学校内现腐尸 可能为失联一个月全球首创利用树皮提取黄酮素技术获欧盟最高法:零容忍查处司法腐败 严查“诉石家庄召开城市排水防涝综合规划技术论杭长高铁明将全线贯通 初期开通40对中国冰灯发源地“哈尔滨冰灯游园会”设浙江警方:“失联准新娘”已找到 前男美国火星探测器最新发现:火星上曾有湖郑州三处道路修复工程即将完工 西区通10日至13日棉纺路陇海路等五区域停评论:用文化留住乡愁北京发布大外环等公共领域项目 拟吸引唐寅碑刻拓片特展苏州开展 展唐伯虎高外交部:应对气候变化挑战需国际社会长Apple公布年度精选App榜单:搜邱毅:只要陈水扁认罪并道歉 就同意政泰国普吉岛华裔重拾中文梦美防长:伊拉克必须赢得对抗IS战争
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘