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

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

微软CFO:我们的移动战略没有“B计划” TIOBE 2013年2月编程语言排行榜:历经十月Java重返第一 为让用户亲身体验产品 谷歌年底或开零售商店 谷歌推Chrome API支持HTML5实现本地离线数据存储与同步 Ubuntu开发者预览版将于月底开放下载 因Java漏洞,Facebook遭受恶意软件攻击但未泄密 HTML5预测 取代本地App将成为可能 2013年最佳实习企业:微软仅居第三 助力响应式设计:Adobe发布最新HTML5工具包 VMware控告Hortonworks恶意挖角 2013年大数据真谛:实时分析与批量处理 微软招聘信息证实Windows Blue项目正在推进 研究人员正开发永不会崩溃的计算机 Google:开发者应尽早进入可穿戴式计算 Chrome OS身世及其创始人之谜 谷歌举办Glass Foundry黑客马拉松活动 获80款Glass应用 政府和法律的干预拖慢了云计算发展 AMD打造开放的异构计算标准? Podcasts:苹果史上最烂iOS应用 烂过iOS Maps 日本游戏开发公司谈:如何在激烈的APP世界立足 VC不会告诉你的8件事 Reddit宣布将接受虚拟货币Bitcoin付款 OneID创始人:双因素身份验证无法保护Twitter Opera放弃自家内核转投WebKit的背后 Amazon强攻私有云市场,目标锁定银行 微软的24年数据中心之路 Flurry:约会应用男同性恋用的最多 jQuery消息提示框的简单实现 Mozilla CTO:Mozilla不会转向WebKit 这很重要 Pinterest或超Twitter成第二大社交网站 适合儿童上手的八款编程工具 如何把文件中的数据赋值给变量?(菜鸟问题) 各位大侠江湖救急啊!关于域的问题 关于菜单字体设置 百分求助!!! 怎样在EXCEL里的VBA设置密码和破解密码 有几道基础题大家来讨论 请教:XSL如何进行简单的算术运算? 请高手指点:关于字库显示问题 奇怪,我把iis的应用程序级别调到“低”后,网页里的button变得无效了 谁有移动硬盘(USB2.0)驱动?? 指针!赋值为什么会出错? 在Windows系列OS中,如何同时向两个文件夹存储文件? 从没有见过的问题~~~~~~~~~~~紧急 哪种代理上网软件可以使用2000自己的用户来控制上网? 写win socket程序的经验。(非技术) 高手看看吧 关于JTable的编辑更新(有数据库操作) ADODataSet1的小问题,马上结,急!!!! 请 wenmingxing516 () 和 feng55555() 进来解释你给分的原则! 物资管理中物资价格的处理问题!!!!!!!!!!!!!!!!!!!!!!!!感谢帮助@ 讨论:perform(),sendmessage(),postmessage()区别 怎么获得文件的修改时间? 怯怯地问一句:我下载的TreeView怎么只有360k呀? 菜鸟问题百分相赠 各位大侠江湖救急啊!关于域的问题 请问有谁写过从DBF文件读出表结构的程序吗? 系统文件u8888.dll错误,发现无法识别版本系统,要求插入cd ,怎么回事啊? 申请游戏开发版块斑竹 我想问个排序的问题。 使用“文件”对话框,另存时 大家帮忙——————在线等待!!! 鼠标单击文本框内容,怎样取得其在文本框中的位置?? 用c++编写家电超市物流管理系统 有那位帅哥可以帮帮忙吗??谢谢~嘻~`~~~ 谁有英文版的FLASH和DREAMWEAVER!! 那里有C#的电子书下载呀 新手提问,关于SQL数据库的连接代码 在unix下的ftp问题 一个简单的问题 jbuilder中的Tools->Configure Servers的对话框中没有JBoss 3.X,如何是好? SqlServer数据库的备份问题 在线求助ReportBulider如何做这样的报表? 怎样得到用户表名? 大家好帮忙啊 ——————在线等待!! 直接访问操作符"." 和间接访问操作符"->" 有什么区别 数据库优化的问题 一个文本框,有一个验证控件(判断是否为数字),还有一个textchanged事件,这是一个矛盾的东西,让我头疼~~ interface中的uses语句和implemetation中的uses语句有何不同? XP个人单机服务器配置后访问需要帐号密码,怎么办 干得不开心,想转行,大家给点建议 如何实现“让用户自定义快捷键?” 怎么样把.aspx制作成安装的文件?? 我写了如下一个方法,但是用起来有问题,帮我看看!! 谁知道感恩的意思?急用, (关于评价广告)1.鲁花花生油的电视广告词简洁明了,上口好记.开始的广告词是:“滴滴鲁花,香飘万家”,后来改为“滴滴鲁花,健康全家”.请你简洁分析两则广告词的有点,以及这样改的理 李子树新叶叶肉发红,果子变黄,是怎么回事? 李子树杏树梨树怎么区别?除了看果实. 谁知道关于语义格的这一个定义是谁说的?"语义格" 在学术文献中的解释 1、该理论认为句子是由一个在句中起中心作用的动词和若干个名词短语构成,参与动作的各个体称为“语义格”.格语 谁来告诉我 这段话 是什么意思~~世界没有悲剧和喜剧之分,如果你能从悲剧中走出来,那就是喜剧. 如果你沉缅于喜剧之中,那它就是悲剧. 如果你只是等待,发生的事情只会是你变老了.世界没有 地球绕太阳旋转的速度是30千米/秒,比火星绕太阳旋转的速度快六又十分之七千米/秒,如果水看下面补充↓地球绕太阳旋转的速度是30千米/秒,比火星绕太阳旋转的速度快六又十分之七千米/秒, 火星绕太阳旋转10秒走了241千米.照这样的速度,1小时能行多少千米? 用比例解 怎么写,教我 我经常看见妈妈帮助她们班上的学生温习功课.(调整词序,句意不变) 死飞的羊角把有多少种握法?那种好握. 新书显示挪威杀人魔在母亲逝世前曾向其旅游局:明年节假日方案仍在研究 将参以色列批准新建1500套定居点住房遭澳大利亚药物管理局警告当地人勿饮壮阳法国部分知识分子反对将嫖娼列为违法引韩国防长称将重组国军网络司令部 提高韩国防长称将重组国军网络司令部 提高第6届义乌森博会开幕 25个境外展团斯诺登不会赴德就监听事件作证 可在俄蒙古总统结束对朝访问 或未见金正恩英国考虑对外国购房者增税“没有这个孙媳妇,我们早就不在了”爸爸打苍蝇感冒不可小视,小心引发心肌炎南京民俗“活辞典”离去少女满口牙松动沪援建雅安项目落地 设立监管小组确保神秘\"嗅辨师\"闻\"臭\"识污染\"地下铁\"享受艺术熏陶 沪地铁音佘山\"双宝\"有望入驻上海天文馆 火车票抢票软件催热春运抢票潮 捆绑销上海老龄人口已突破25% 4个人中有暗恋不是两三天嫡姐攻略一婚成瘾哑姑玉经重生之超能千金极品青云绝望教室女探校园贴心高手药香嫡女:王爷别乱来养媳有毒观海园旅游和谐钟塔旅游黄金广场旅游照金香山旅游陈炉旅游三原城隍庙旅游柴埠溪旅游莘庄公园旅游银滩湿地公园旅游安徽省博物院旅游蜀山春晓旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘