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

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

月成本3500美元 如何在AWS上实现BBVA信用卡低延时分析 外媒眼中的国内互联网巨头:服务器集群庞大但缺乏创新 Facebook主导通用主板+SoC ARM与Intel同台对抗 假如像招聘程序员那样租车…… CrowdStar:Windows Phone 8是开发者的下一片蓝海 腾讯云总经理陈磊透露流量变现计划 将比亚马逊AWS更专注 代码之美——Doom3源代码赏析 英特尔公布2012财年财报 Q4净利润同比下滑27% 谷歌CEO佩奇:创新重于竞争 关注非增量改进 再尝败绩 微软杀软AV-TEST反病毒认证失败 财富:2013最佳雇主 谷歌第一微软75苹果未入榜 移动应用注册表单必死! 数据:2012年的全球互联网知多少 访中粮我买陈伟伟:高并发大压力挑战架构师极限 左路Deep Learning+右路Knowledge Graph,谷歌引爆大数据 数据库排行榜:关系型居首,NoSQL整体人气最高 联通:要做PaaS,存储最低为TB 百度资深交互设计师谈微信4.5版本 TalkingData推出移动游戏数据分析平台 一周消息树:著名计算机黑客Aaron Swartz自杀身亡 使用Windows 8模拟器及Visual Studio 2012调试IE 10触控及响应式Web设计 Azure、AWS要来了 IDC抱团取暖还是各找出路 C#使用ICDBurn实现CD刻录 验证码识别基础方法及C#/.NET源码 傲逆软件CEO周鲁:核心游戏精神,在移动游戏创作中传承 Kim Dotcom推出新文件存储服务平台Mega 用户数一天达百万 美FCC:希望全美在2015年部署千兆以太网 iOS和Android双平台:帷千动媒SDK 3.0发布 移动周报:2013年移动App设计13大精髓 构建高可扩Web架构和分布式系统实战(下) API设计的十大最差和五大最佳实践 java 中的double类型,在Oracle数据库中应该对应的是什么类型? 怎样作才能不让用户随意更改系统时间和日期? 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于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最小! 中国三大平原是哪些? 23.增值税一般纳税人销售货物适用13%税率的有(ACD)A.销售材料  B.销售钢材  C.销售图书  D.销售自来水 理由 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页?怎么答题 春作者朱自清,现代著名散文家、( )、( )、( ).他的代表作有( )等 甲乙合作一工程要6天,如果甲先做3天,再由乙继续做8天刚好完成.若甲独做这一工程,要多少天呜呜呜,烦死了,端午节也在写作业,好多应用题不会, 一本小说,每天看45页,第16天看完;如果每天看54页,第14天就看完了,这本小说最多几页,最少呢? 我国的三大平原是哪些 一项工程,甲独做6天完成,乙独做8天完成.两人合做3天,完成这项工程的 双向自动扶梯一层到二层,两个扶梯梯级宽度都是800,三十度倾斜角度,提升高度为4200那么土建时,二层预留洞口宽度为多少,二层顶端是否要留得大点,一层基坑的大小是多少? 请告诉我一篇《清晨》三年级作文有多少字 一项工程,甲独做6天完成,乙独做8天完成,两人合做( )天完成,所以尽量将清楚 一本小说,如果每天看45页,第十六天看完;如果每天看54页第14天看完.这本小说最多有几页?最少呢? 用好像仿写句子,不是比喻句.好的要重谢!还有分 一项工程,甲单独做6天完成,乙单做8天完成,两人合做多少天完成? 我读1本书第1天读了10页以后每天都比前一天多读2页第16天读28页正好读完 这本书共多少? 作文:清晨,我走进校园写清楚走进校园看到的、听到的、想到的,描写要具体,想想要合理. 一项工程,甲乙合做8天完成.如果先让甲独做6天,再由乙独做,完成任务时发现乙比甲多了3天,乙独做这项工程要几天完成? 有关 崇尚科学,反对邪教 的征文800到1000字.麻烦写得水平高一些吧. 有带像、似乎但又不是比喻句的句子吗? 找一篇题目为等待的作文,字数600左右,要中学生水平. 一项工程甲队独做8天完成,乙队独做10天完成,甲乙合干三天,乙队另有任务,甲队还要干几天才能干完这工程高手来解 以舒适的早晨为题,写一篇350字左右的作文!急!一定要快!1快!有急用!!! 以"春节,我最快乐的一件事"为题,写一篇作文,字数500字左右, 小东图书本数的5分之3等于小强图书的3分之2,小东与小强图书质量比是多少 雨后的早晨(400字左右作文)《雨后的早晨》400字左右作文,急!好心人帮帮忙吧!还有,要怎么样点击才能选择满意答案呢? 我是个高中生,我写作文总是没话说,所以常因字数不够被扣分,怎样才能改善呢,还有怎样写好作文 小刚和小强看同一本书,小刚还有19页没看,小强还有14页没有看,他们俩()看的页数多. 用上‘好像’一词 写一个不是比喻句的句子怎么写呢 我作文总是写不够字数怎么办?怎么才能有话说,凑够字数?基础差我看到作文就觉得没话说.怎么才能把文章写细腻,写够字数?800字 中山陵怎么走? 用好像一词写一个不是比喻句的句子 已知圆锥的底面半径是3,母线长为6,则该圆锥侧面展开后所得扇形的圆心角为需要讲解下.. 中山陵怎么去 小明,小英和小美三人定期向李老师求教,小明每六天去一次,小英每八天去一次,小美每九天去一次.他们每多少天会同时想李老师求教?最先的再加5分 帮我点评一下这篇托福作文,看看能多少分求 各种拍砖People work because they need money to live.What are some other reasons that people work?Discuss one or more of these reasons.Use specific examples and details to support your ans 中山陵的地理位置【要简短】 有没有否定语气的比喻句?就是,有“不像”的句子是不是比喻句?比如说,桥像彩虹,这是比喻句,并且是肯定句。有本体和喻体。但是,如果变为“桥不像彩虹”本体和喻体还成不成立呢? 励志名言名句,附带一篇演讲稿 用什么去刺激蟋蟀须,让它们打架 什么句子有“如”,“像”却不是比喻句,能举例子吗,比喻句有什么特点?"如玩电脑那般激动"是不是把干某件事情的心情比作玩电脑时的心情呢? 小红看一本书,第一天看了全书的14%,第二天看了12页,还剩27页没看.这本书一共多少页? 蟋蟀吃什么?怎么看雌雄?现在养最多活几天? 为什么句子中有“像”字却不是比喻句? 小红看一本书,第一天看了全书的10%,第二天看了全书的15%.第二天比第一天多看12页,还剩多少页没有看 巍巍中山陵课文问题吕彦设计为什么能脱颖而出?为什么要介绍大平台与入口石坊垂直高度差? 一项工作甲单独做需要5天完成,乙单独做要10天完成,若甲单独做了x天后,甲乙合作y天,则一共完成了( ) 蟋蟀怎么才能打架 中山陵简介(200字以内)不要提到孙中山 一件工作,甲单独做X天可以完成,若甲、乙一起做,Y天可以完成,那么乙单独做几天可以完成 蟋蟀会因为吃的而打架吗 中山陵简介 100字 春是一篇 散文?朱自清是现代著名 ,,,. 一项工程甲乙合干12天完成,乙丙合干15天完成,甲丙合干20天完成,如果甲乙丙三人合干几天完成? 有一本书,原计划每天看20页,如果每天多看5页就提前2天看完,问这本书有多少页?请不用方程式解题,并讲出过程, 我国的三大平原 《青鸟》读后感50字0000000000000000000000000000000000000000000000000000青鸟》讲述的是:圣诞节前夜,伐木工简陋的小屋里,男孩蒂蒂和女孩咪蒂正在眺望富人家的孩子过节.仙女装扮成老太太请他们为她 蟋蟀为什么爱打架我要做问题,请帮我! 求一篇朱自清的2000字散文 一项工程,甲队6天完成,乙队8天完成,两对合作多少天完成工程的3分之2 ? 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页? 故宫食堂发生持刀伤人事件2人死亡 嫌千年悬空寺被指因煤而“悬” 当地回应六名赴朝韩国人已回国 将面临韩国当局美国尼米兹号航母进驻地中海 称随时可陀螺般从早忙到晚 1/5澳洲人没时间美“毒妈”扯伤儿子阴囊用胶粘合 恐遭美媒:斯诺登掌握美搜集中俄伊朗等国情埃及性侵泛滥 美民间组织绘制“性侵地浙江绍兴纺博会创新思路 外商采购看重历届金钟奖女星红毯穿着暴露走光盘点(世界旅游旅行大会再次落户中国 将关注北京拟规定“停车三分钟熄火”被质疑无美国前“新泽西小姐”意外死亡 前男友专访世游会总裁:雾霾难阻外国游客来华日本网友:日本人爱自杀或与性格相关6名被扣韩国公民回到韩国中国新锐设计师作品亮相宁波国际服装节韩国双胞胎整形变美女脸 网友惊叹:太外媒:斯诺登握有美国针对他国情报活动埃及性侵泛滥 美民间组织绘制“性侵地农业国阿根廷被曝过度依赖化学物增产 往上蹿的除了气温, “火箭蛋”还有“有一种将历史握在手中的感觉”中央外宣办五局副局长高剑云涉严重违纪幼童玩耍时从10楼坠下“治愈”才半年, “主动脉”又伤了供“一大波 社区金融便利店”来袭专家学者研讨老龄问题救火负伤不愿提家人一周后才知盐城被禁电三轮“贱卖”到滁州别人学费靠爸妈,他却能带钱回家延误诊断时机,医院被判赔钱老四已出院,老三病好转路边捡现金,贫困少年沿街寻失主百万豪车减震器竟不是原配智障老人回家遇到很多好人夫妻俩带着满月孩子做传销综合利用效益明显 节约集约前景广阔姜大明主持召开第十次部长办公会海南一季度查办贪污贿赂大案要案62件3月70城房价仅温州同比下降 北上广华尔街日报:普京表示不希望但也不排除
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘