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

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

用友UAP产品线总设计师史周军访谈录 IE10新功能解析 支持Media Query(图) 单页Web应用或引领下一代Web新趋势? [CTO俱乐部第89期]新时代的前端开发 [多图]160台Mac mini打造的数据中心机架 是谁动了我的CPU! 欧朋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发布 修复安全漏洞 如何用DELPHI制作卸载程序 为什么我在C++ Builder 中用cgi作webservice访问数据库出错? 关于dinstinct的问题(100分!) 怎样将GIF文件包含到资源文件及如何调用? 如何在程序中屏蔽掉系统热健:如 ctrl+alt+del, alt+tab等等 怎样在子线程的运行过程中获得主窗口的指针? 50分征解50分征解!!!!! 如何在listbox中显示多列,并加上标题(每一列都有自己的标题) 现有一DBF数据库,如何把它倒到SQL里? 没分了,仅此10分求日期的正则表达式,希望帮忙 PPT 文件变得好大 oracle8.1.5中transaction slot的问题 怎样在linux下设置有管理员权限的用户!在线等待!!!! 出学者界面实做---STEP 4 小小的堆栈问题 可不可以在一个视图中加入不同数据库的数据? 为什么我在C++ Builder 中用cgi作webservice访问数据库出错? 求JPAD PRO的破解 PPT 文件里插入Organization Chat 请教static问题 我要离开现在的公司了,去寻求新的发展...... 请教各位高人,一个循环定义问题 Win98下为什么拦截不到从另一线程发过来的自定义消息 public class myclass 与 class myclass 一样吗? dbgrid 中,titleclick事件,如何判断选中的是 哪个字段 呢? 很简单 ADOtable 不支持 FindKey, 请教: 应该如何解决记录定位? 火急请教个“重新验证组织单元”问题! 想做一个报表但设置DataEnvironment的连接失败,不知为何错? 请教!linux下将.h和.c文件编译成动态连接库!!! 你真的懂SQL语句的编写吗?快来,我给你分 重载与模板的问题 出租魏公村西口两居之一 不知哪有好一点的聊天室,各位大虾请推荐几个小弟几个!!!! jsp里面有类似于asp的response.end语法吗? 求教各位大虾,这样的数据库程序如何实现。急切中。。。。。 vb中有没有像CommonDialog选文件的定位文件夹的控件? 怎么一次性加入多个子目录中的CPP文件到VC工程中 关于pos系统数据同步传输,欢迎大家进入讨论! 怎么得到本机的ip地址? 关于package 的问题 关于打开网页的问题 怎么在文本文件中的两行中添加一行?怎么删除一行? “split”分割问题 请教:怎么配置Tomcat可以禁止访问目录 ,比如访问 http://127.0.0.1/test 不会出现文件列表? 请问怎样在对话框窗口中的Edit控件里按下Enter键后不要退出 有关dremveaver ultradev 的动态网页制作问题, 请教高手。。 在delphi中如何实现全屏?? 100分。请大虾帮忙搞定 谁有存储过程的学习资料? 怎样判断计算机上有没有装madc数据库连接,? 项目中的一个问题,急待解决,请帮忙,谢谢 无聊散分 世界爱眼日和世界爱牙日是几月几日? 写人物外貌的片段 精细胞和卵细胞到了外太空会不会变异哎如果在太空中人的精细胞和卵细胞结合会生个什么东西出来啊? 两小儿辩日反映了中国古代人的什么精神 水粉画天空进近处的颜色深还是远处的颜色深? 把精子带上外太空后进行人工受精,孩子会不会太空蔬菜哪样变异,是否对人内的进化有好处为了人内的进化为什么不可以牺牲孩子 中国古代降妖除魔的人叫啥?类似日本的阴阳师. 描写胖男孩外貌衣着的段落 人会变异吗? 康熙皇帝真是被雍正害死的吗有没有什么历史证据? 人在太空可以漂浮,原因是质量消失 还是质量减少 怪物大战外星人 来自外太空的变异南瓜怎么样 谁知道描写古代男子服饰的段落?随便,只要是古代的就好 谁能给我魏晋南北朝时期的皇帝的年号与具体时间? 火车的速度一定,路程和行驶的时间成正比例吗?为什么?订阅少年报的分数和总钱数成正比例吗?为什么? 描写男生笑的段落 人死在太空会怎么样?昨天刚看了《地心引力》,有几个问题:1、航天飞机里气压是一个大气压么?它被撞破之后,很短时间内变成真空,那么人会像深海里捞起来的鱼一样被体内压力涨破么?2、 火车时速180公里提速到时速280公里,节省时间48分钟,请问路程? 圆O中,弦AB=24,CD=10,AB的弦心距是5,求CD的弦心距. 假如你第一次在北京过春节,这期间,你吃了饺子和其他中国美食并且有压岁钱 希望给好友amy一封英文信60词 一辆车从甲地往乙地第一小时行驶全程的四分之一第二小时行驶全程的三分之一这时共行驶70km甲乙两地相距?km一辆汽车从甲地驶往乙地,第一小时行驶了全程的四分之一,第二小时行驶了全程 水粉画中 晨曦和傍晚天空的色彩偏向在没有朝霞晚霞的情况下. 急需一篇初一英语作文.你最享受的生活.字数要求60-80个单词 the flu people in many winter the get 连词成句the face fiies John's ball into. 皇上的妃子喜欢了王爷,怎么办或者你是洛家庶女洛倾城,你与夜丞相家的嫡子,夜城诺两情相悦,但是身份有别,你该怎么办?200字左右 水粉画-天空和水在一张画上,怎么区分画出来.颜色该怎么用呢天空和水在一张画上,怎么区分画出来.颜色该怎么用呢 亲爱的老公英语怎么写 康熙是否是自愿传位雍正的?很想知道是逼宫还是因为康熙喜欢乾隆之故或是诏书传位? 初中记叙文 关于友情急求一篇关于友情的记叙文,500字以上,800字以下 男人经常看一个女人的空间是什么心理 我与书的故事作文咋写啊 怎么背英语课文 记得牢怎么背英语课文 、记得牢呢 、 写一遍800字的话题作文.急有400只老虎,其中300只被租赁到外地来养活家中的100只兄弟姐妹,我问老虎:“在家里好还是在出外打工好?”老虎说:“当然出外打工好,至少吃得饱.”另一只老虎说 批评他人一定要谨慎.英语翻译 _________others. 怎样背英语课文又快又牢? 给我一篇以善良为题目的话题作文 要650字的 急 康熙、雍正和乾坤是什么关系? 求着一片梁衡的文章:跨越百年的美丽是写居里夫人的 班级管理我有好办法 作文 300字 谁能给个 “没有钱也有幸福”的事例啊,写作文用 《跨越百年的美丽》(梁衡)读后感最好是现写的,不要太长,太深奥,1000字左右 描写人物的片段不要外貌描写 类似小嘎子和胖墩比赛摔交 临死前的严监生 写作文时找不到具体的事例,怎么办? 描写老人衣着寒酸的段落快啊,急 对班级管理的作文如:对课堂纪律,卫生劳动等 写作文时可以不用具体事例吗? 太空育种出现性状变化实质上什么发生改变,这是由于太空的什么特殊条件下改变的 有关人物描写的片段,有神态,动作,语言.300字 世界爱牙日是几月几号 太空育种是利用宇宙飞船等把种子带到太空,利用太空的特殊环境诱发种子发生变异,再返回地面选育新品种的过程.太空育种( ) A.能诱发生物产生可遗传的变异 B.产生的变异都是 一篇关于“班集体”的话题作文要用小标题形式的(不少于600) 请问世界爱牙日是哪一天?我想知道确切的爱牙日是哪天,有急事! 请问,送去太空育种的蔬菜,现在蔬菜个体变的很巨大,这样的变异算不算转基因?这类蔬菜算不算转基因蔬菜 我读古诗写话题作文用小标题的形式快 坐得等 世界爱牙日是哪一天? 正章元年是哪个朝代的?哪个皇帝的年号?(《后宫-甄嬛传》里甄嬛的原型是谁?哪个朝代?哪个皇帝?乾元帝也可,回答乾元帝哪个朝代的?哪个皇帝的年号? 作文 春节记事,1000字左右,要用创新作文的形式写,最好是加上小标题!在每个段落后面用一句话来点明中心! 几时是世界爱牙日? 描写神态.外貌.衣着的片段 人到了外太空会出现什么样的状况?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘