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

VB删除整个目录

HTML文档下载 WORD文档下载 PDF文档下载
VB删除整个目录


下面的程序可以使你删除整个目录,而不用理会目录下文件或子目录的属性。AddDirSep子程序使你不用输入斜杠。

Sub FPDeleteTree(inPath As String)

'定义临时变量
Dim tmpPath As String, curPath As String
Dim tmpFileName As String

'保存指定路径

curPath = inPath: AddDirSep curPath



'不理目录下文件属性,统统删除。

tmpFileName = Dir(curPath, vbNormal + vbHidden + vbSystem)

Do While Not tmpFileName = ""

SetAttr curPath & tmpFileName, vbNormal

Kill curPath & tmpFileName

tmpFileName = Dir

Loop

'循环删除子目录及其内容

tmpPath = Dir(curPath, vbDirectory)

Do While tmpPath = "." Or tmpPath = ".."

tmpPath = Dir

Loop

Do While Not tmpPath = ""

curPath = curPath & tmpPath

AddDirSep curPath

tmpFileName = Dir(curPath, vbNormal + vbHidden + vbSystem)

Do While Not tmpFileName = ""

SetAttr curPath & tmpFileName, vbNormal

Kill curPath & tmpFileName

tmpFileName = Dir

Loop

tmpPath = Dir(curPath, vbDirectory)

Do While tmpPath = "." Or tmpPath = ".."

tmpPath = Dir

Loop

If tmpPath = "" Then

RmDir curPath

curPath = inPath

AddDirSep curPath

tmpPath = Dir(curPath, vbDirectory)

Do While tmpPath = "." Or tmpPath = ".."

tmpPath = Dir

Loop

End If

Loop

AddDirSep inPath

RmDir inPath

End Sub

'******************************************************************************

' 子程序: AddDirSep

'******************************************************************************

Sub AddDirSep(strPathName As String)

If Right$(RTrim$(strPathName), Len(gstrSEP_DIR)) <> gstrSEP_DIR Then

strPathName = RTrim$(strPathName) & gstrSEP_DIR

End If

End Sub

熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn [新书推荐]Node.js项目实践:构建可扩展的Web应用 【简讯】Perl 5.22.0 发布,大幅改进代码! 【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 《开源者说》08期:聊聊Java那些事儿 专访唐成:从小工到专家,PostgreSQL的修炼之道 《瞬间之美》作者Robert Hoekman Jr:如何成长为UX领袖人物? TIOBE 2015年6月编程语言排行榜:Swift份额上升,Objective-C成自由落体 【CTO讲堂】Box首位华人核心工程师的回国创业之路 【探秘ES6】系列专栏:ES6简介 专访《Javascript设计模式与开发实践》作者曾探:爱编程 爱生活 【探秘ES6】系列专栏:迭代器和for-of循环 【CTO讲堂】UCloud联合创始人兼CTO莫显峰:如何成长为技术合伙人? 【探秘ES6】系列专栏:生成器 iKair转型传感器及SaaS厂商,发布Maxense平台与9款“云传感器” 免费jQuery幻灯片图片轮播插件Galleriffic的使用方法 专访IBM中国研究院院长沈晓卫博士:全新的物联网来了 《近匠》GYENNO CEO任康:用“勺子”敲开一片新市场 Horde3D——基于C++编写的3D渲染引擎 Maker Faire 2015在深圳正式开幕,关注创客生态系统 Arduino与Seeed Studio达成战略合作——专访Arduino联合创始人Massimo Banzi 免费开源的Bootstrap富文本编辑器bootstrap-wysiwyg使用方法 CCAI2015:首届中国人工智能大会将于7月26-27日在京举行 拥抱互联网+ 用友NC6助力集团企业蜕变数据驱动型公司 如何随机生成6位密码,但不能有重复 如何在邮件的信头立加入自己喜欢的图片??谢谢 请问:为什么可以给一般对话框上的按钮添加位图,在CDialogBar上却不行?如何在CDialogBar上的按钮上显示位图?谢谢回复。 救命!在线等!再发。 怎末实现 统计图片的点击率??? 在线等待,解决即给分!!! 求助!连接数据库问题? VC.NET和VC6.0的语法差别大吗? 图像处理和计算机视觉方面有什么牛公司嘛? 高分求服务器c#向客户端javascript传递数据的各种不同方法!!! 用过C196开发196KC/KB的请进,谢谢 我用MFC编写了一个ActiveX控件,如何实现安全接口? 如何实现 XP 中目录窗口左边那种菜单 有关界面设计的两个问题? drawString时怎样规定一个区域,在这个区域内的文字显示,超出的不显示 急!在线等!Excel文件导入的问题。找不到可安装的ISAM 结识搞PHP的朋友 关于cell组件 郁闷当中,谁能给个用vb做DLL然后在DLL中增加数据库记录,在asp调用的例子。 singleton模式实现的问题 100分 谁讲一下定点数和浮点数的区别 急急急.请各位大虾帮帮忙啊! 請問語句的意思,謝謝 (Oracle8i)以SYSMAN登录控制台 斑竹9我! 求教高手!!!TEXTBOX与DATAGRID的问题 求助!关于用74LS181模拟8位机的资料!(散分啦,小弟急用啊!) 我的WINDOWS2003的DIRECTX 3D功能用不了,为什么? 如何用命令来修改设置计算机的ip,网关和dns等内容 不知道到那里问,借个人气了 托架的图标 散分! 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 逐层加热式电开水器技术的质疑所谓的电开水器逐层加热技术,可避免阴阳水和千沸水,真的能做到吗?都知道液体的对流原理,水在被加热后,一定会在水箱中对流,能不破坏水层结构吗?我看这是 电解抛光可以用不锈钢做挂具吗? 无水cacl2可以吸收什么气体或其他的 超级电容充电后,为什么电压会保持不变或是衰减的很慢?是内阻很小还是电解质的特性等原因造成的?求原理超级电容充电后的电压为什么会长时间的保持不变,本质原理是什么?影响其电压衰 阖上是什么意思 无水CaCl2是干什么用的? 铁锈能导电吗?有人说能,但比较弱;有人说不能,它是绝缘的.我想知道到底能不能? 阖,捭,这二字是什么意思?拼音注上谢谢! 我国最大的海峡是A. 台湾海峡 B. 渤海海峡 C. 琼州海峡 铁锈导电吗?请教铁锈是否导电?比如在交流220V或380V的情况下;另外,对于铜和铝而言,铜锈和铝锈也导电吗?请回答具体的情形. FLUKE336钳形表能测量泄漏电流吗 交易性金融资产、持有至到期投资和可供出售金融资产之间的区别是什么? 铝电解电容器在高温老化时电压会下降10多伏,请问是怎么回事?是螺钉高压大容量的电容器450v5600uf 寝室限制功率,电源先连本本再插插座就行,反之就跳闸,为什么?寝室限制功率,本本的电源先连接本本然后再插到插座上不跳闸,反之,电源不连本本,直接插插座就跳闸,这是为什么?忘了说了,我 核辐射元素来自地球 为什么对人有影响 铁锈会导电吗? 闻了水果高度腐烂后的味道 ,对身体有什麼危害嘛 核辐射会存在于什么物质上````比如``水```空气````或有机物? 把一个充电的电容器断电,在把一半的电容器充上均匀电解质,请问左右两边电容器的电压相同吗?要详解,思路清晰的增加悬赏! 写出一种比较好吃的水果,这种水果的味道,写详细一点. 核辐射由那些物质构成? 铝电解电容器电解液的价格是多少 感叹句转换这句话把我打动了.改为感叹句 核辐射能在物体上停留多久买了日本产的袜子,地震之后买的,穿过最多三四次.不确定有没有受核辐射污染,还有买了日本的化妆品,也是地震之后,有牌子的,用了一次,后来想想还是不敢用了,请 有机溶剂类铝电解电容器电解液国内有哪几家在做?什么量?什么价格水平?国外的主要是有谁在做?可否推荐几家? 转换感叹句What a dry day it is today!转换成HOW的感叹句 马六甲海峡位于什么地区?说出其位置重要性 渤海海峡是内海海峡吗? 感叹句之间的转换.1.She is very happy. Hwo ( )!2.what a nice room it is ! ( )room it is!3.How surprising the new is ! What ( )i 马六甲海峡位于. 肌肉注射药物要抽回血吗 人生是一个正方形是什么意思 质量为3.5*10的六次方毫克的物体可能是 A一头牛B一只鸭C一只鸡蛋D一粒米,麻烦啦, 连接大西洋与其内海的海峡?1 苏伊士运河 2 直布罗陀海峡 3 土耳其海峡 4 马六甲海峡 1 2 1 4 2 4 2 3 英语翻译 1.2乘以10的6次方毫克可能是 a 一只羊 b 一头牛 c 一只鸡 d 一只蜜蜂 现在的空气有没有毒 英语翻译tired of drifting?是不是最好的表达? 质量为1.5乘已10的7次方毫克的物体可能是什么 病毒的生活需要空气吗 拱形节水骨架护坡转角遇到半锥体应该怎么做?坡度比较坡,半锥体应该是浆砌片石还是干砌片石厚度怎么确定? 下面物体中,质量最接近1.0×10的4次方毫克的是 核糖体是不是属于细胞质 一般情况下空气中存在病毒么 请问锥体束是? 氧化铁还原后的铁能不能用?还原后的铁能不能用来制造各种铁器 Zippo打火机新款沙子200带便携式烟灰缸24748礼盒装 截得的小锥体的体积与已知锥体的白锥体的体积比等于相应高的比吗 电可以组什么词 zippo SC1677这个型号到底是烟灰缸还是打火机啊? 关于锥体束、锥体束征、牵张反射之间关系的疑惑.锥体束是牵张反射易化作用的一条路径,牵张反射的结果便是肌张力的升高;而锥体束受损,出现锥体束征,上运动神经元对下运动神经元的抑 电怎么组词 澳大利亚的什么业发展迅速,超过了什么和什么,是澳大利亚的经济支柱 锥体是如何定义的? 一群猴子,树上的是地上的五分之三,上去了6头,这时树上和地上的一样多,问原来一共有几头 澳大利亚的矿产对本国的经济有什么影响 青藏铁路沿线地区的主要支柱产业是畜牧业,说说那里发展牧业的有利条件有哪些 有18只猴子在三颗树上.两分钟后2只猴子从第一棵树跳到第二棵树,然后5只猴子从第二棵树跳到第三课树.现在三颗树上的猴子数都相等.请问,原先每颗数上有多少只猴子? 二十世纪七十年代澳大利亚最大的经济支柱是什么行业 世界上什么地方的气候夏天凉爽干燥?如题.是不是不存在?相对的,说来听听也可以干燥是指的没有我们夏天所必须忍受的“闷”的感觉,以及没有身上总被汗水包围的感觉 奥巴马医保网站问题频出 美卫生部长被医改网站技术问题百出 奥巴马上教堂也小偷偷完东西后给司机留条:夜里3点半少年水中救人亡难获\"见义勇为\" 监控门发酵 德国巴西草拟联大决议保护百度理财平台首个支持产品如期而至上海自贸试验区企业进口机器设备可免税温州:建好小微企业园促进实体经济振兴杭州市出台促进高校毕业生就业创业新政中纪委监察部网站推出报道详细介绍中央美媒:美国是全球不多的超级大国 不得《我是特种兵之火凤凰》帅气女兵生活美老鹰用摄像机监视绵羊:德街头画讽美监德媒曝美国10年前已监听默克尔通讯 老鹰用摄像机监视绵羊:德街头画讽美监我海军在西太平洋实兵演习遭外国舰机跟国际新闻早报:黎巴嫩北部教派冲突持续安倍称为世界作贡献途径之一是在亚洲抗“乱世”面前,马尔代夫总统宣布休假一非正式出口民调:执政联盟候选人胜出格德媒:美国十年前已窃听默克尔电话敬老院一孤儿考上国防生 立志将来报效看完这个,你还会对祖国失望吗?(强烈我市部分地区明日有阵雨或雷阵雨 注意春节过后,这些“新政”将改变我们的生柚、柚、切克闹,葡萄柚子来一套!下厨献给世上所有动过真情的人未来3年 80%中国富人将雪崩式返贫市长谢玉安第七次暗访暗查环境污染治理再次降息的时机已经成熟 通缩是最大风省军区领导莅临我市某预备役团调研25个简单方便的美妆美发技巧,早收藏公积金贷款额度不足 晚报告诉您怎么解千万不要把这个年纪和这种状态视作某种村里又闻喇叭声不急!2015还有5个假期|拼假攻略蓝天碧水的福报一条黑色裤子,满足所有季节造型沁阳市举办招商引资培训班邮政储蓄将上市:或成史上最大IPO之市长谢玉安第七次暗访暗查 环境污染治广东省江门市人大副主任聂党权接受组织
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘