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

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

《找你妹2》开发者云中游再声明:热酷涉嫌严重违约发布侵权竞品 柴可:大姨吗的轻应用抉择 盘点2013年IT界25个最古怪的面试题 云计算再掀创业热潮,19家企业入驻微软创投 IBM斥资12亿美元,全球大规模扩建数据中心 “Careerfocus之夜”2014年新春客户答谢晚宴在京举办 Google蚕食了维基百科的访问量? 微软Surface Pro 2 的成功之道 精简代码,为网站减负的十大建议 应用宝逆袭上位 将重构腾讯移动应用分发体系 eBay基础设施的成功经验,我们该如何复制? 自定义富媒体广告:NativeX SDK 5.0发布! WunderBar:零硬件开发基础也能接入物联网! 深入解析:分布式系统的事务处理经典问题及模型 从世纪互联、华云数据和金石易服的发展服路径观察IDC产业发展 SA:2014移动运营商、终端和应用十大关键趋势 使用modern.IE来设计更现代化的网页 全国顶级域名根服务器21日下午疑遭黑客攻击 影响巨大 苹果下一代iPhone的十大预测 《近匠》第07期,专访《恶魔塔防》团队,看俄国复杂深奥的游戏文化 代码托管网站GitHub的总裁和CEO进行职位互换 使用Chromebook的五个指南 云中游终极声明:热酷侵权,有种正面回答少打太极 背后故事:英特尔Edison中国研发 内部评审中曾三次被拒 全栈工程师会是未来的发展趋势吗? 大数据整理:囊括分片、存储方法、扩展等多个方面 物联网 ,下一个云计算市场 一位数据挖掘工程师眼中的“大数据与企业的数据化运营” 揭开“iOS in the Car”的神秘面纱 与Apple对峙:法律途径,并非是我想要 Halfbrick新作市场表现低迷:前作辉煌难续 shcv.dll 编译不过去!!!!! have a test!have a test!have a test!have a test!have a test!have a test!have a test!have a test! mysql 结果中再次查询如何才能实现呢 pc2phone java支持byte[] a = String.getBytes("iso-8859-1");转换吗? c语言中关于对windows命令调用的语法、命令及其格式。 怎么样捕捉数据库连接出错的信息?? 在SQL语句中,如何获得一汉字字段的字节长度,而不是字符长度?如“测试”返回4,不是2 如何建树 winsock.dll提供的都是什么函数?如果它提供的是winsockAPI,那么winsock32。lib提供的又是些什么?它们重复吗? FormatDateTime这个函数的日期间的字符不支持汉字,怎么解决? 关于用JAVA生成GIF的问题?(16M的GIF,256的我已经知道了) 如何在ACCESS李使用SQL? 梦天请进,谢谢! 能不能将对象序列化后存到数据库再取出还原?有没有例子? 分屏的已个视要做成对话框,请指教,顺便告诉我如何给分,只能给这么多 sorry,梦天进来,thanks!! 急!请问怎么在java类里写编译另一个类的语句?? 如何在ACCESS里使用SQL? 谁有BO2K源代码,我愿高分求购.不为别的目的,只为深入学习系统编程 如何实现 调用IE打开一个页面,并且多次调用,只打开一个窗口? 帮我点一下我就给分! 一个简单问题:我在给Access数据表中增加记录,其中一字段是CTime类型,但老是非法操作。调试后错误出现是:return (GetLocalTm(NULL)->tm_year) + 1900 不知如何解决。请各位大师救救我把。 动态的保存datawindow object的问题 怎么给一个(tab control)属性单 的标题栏上给添加一个背景位图呢! 千山一刀之忍者神龟进来拿分!!! 怎样得到年、月、日的值 那里有C++ Primer这本书 十万火急!!!怎么在oracle+developer2k中取得本机ip.——高分奉上!! 如何判断输入的信息是中文? dll调用找不到程序入口?? 怎么用win2000来制作一张可以代光盘启动的启动盘 我怎么用一个ALT 封装一个 ToolBar Control的 ActiveX的控件! 谁有什么好的例子吗! 给个意见,是联通好呢?还是移动好? Paramstr如何正确处理带空格的参数? 我在表中插入记录可流览时却见不到新插入的记录只有关闭程序然后重新运行才能看见新插入的记录. 用awt控件制作的下拉菜单,为什么在IE环境下无法正常显示? 请CommerceServer(商业秘密[::路德一族::])luojx(大鱼儿)koyia(koyia) 三位高手再去谁能单独解决~谁能独享100分!绝不食言(再详细点!)) 怎样让程序只运行一次? 怎样合并两个EXE文件? 把数据库表转换成文本文件,有什么好办法吗/ 怎么才能当鼠标移到表格上,然后表格的颜色改变 请kylincn(随心所欲),lianghu(山人)进来拿分; 另外 斑竹帮我给分http://www.csdn.net/expert/topic/389/389544.shtm 哪儿可以找到一些游戏的算法 我快疯了!!!! 谁用过FAST REPORT 请求帮助!!! 在delphi中,怎样判断edit控件中填入的是不是数字?怎样给edit控件加长度限制? 300分求带BDE的安装程序的详细制作方法。别名到底怎么设置吗? 怎样在状态栏中显示进度条? 难道真的没有人知道吗?数据类型问题,高手请进,送分! 阴影部分的面积是5平方米求环形的面积是多少 两个4次多项式相加 四级各项分值是多少?比如,一道听力多少分?一道阅读多少?然后总的,比如作文总分多少,阅读总分多少? 看到一个背单词的诀窍,背单词的诀窍:首先Z,Y,X,Q,J,K,U,然后V,W,N,O,L,接着B,D或E,R或F,G或T,I或H,M,最后挑战BOSS:C,P,A,S,不久你会发现,在英语的世界里,单词会主动认识你. 两个多项式相加后,不含一次项,是什么意思 什么是多项式(项,次数) 下图中阴影的面积是5平方分米,求圆环的面积 两个一元多项式相加我想要一个C++的源程序最好有主函数要多点注释错了,不是这样的,我需要的是输入两个一元多项式,两个多项式相加合并,输出一条链. 在多项式中,次数最高的项的次数,就是这个多项式的( ) 空调作用原理 有一个自然数含有10个不同的约数,但质约数只有2和3,那么,这个自然数最大是 一个面积为300平方米的正方形,边长是多少一个圆形草地平均分成四份,每一份的图形就是度数为90°的扇形.然后题目又说这个圆的半径等于一个正方形的边长,正方形的面积是300平方米,这个正 右图中阴影部分的面积是40平方米,求环形的面积 已知右图阴影部分的面积是25.12平方米,小圆的半径是3米,求正方形的面积36页36页 正方形的面积是300平方米,它的边长是多少?这道题完整的是:下图中正方形部分是一个水池(水池的一个点在圆形草坪的圆心上)其余全是草坪,已知正方形的面积是300平方米,草坪的面积 1.5v干电池电压升到4V驱动发光二极管,求详细的原理 已知下图阴影部分的面积是50.24平方米,小圆的半径是3米,正方形的面积是多少? 面积是300平方米的正方形,边长是多少? 帮我做一下,阴影部分的面积是20平方厘米,求环形的面积是多少平方米?图片上传不了 设S为整数,则所有奇数可表示为( ),所有偶数可表示为( ),所有被3除余2的数可表示为( ) 一个正方形水池的面积是300平方米其余是草坪,求草坪的面积 下图中阴影部分的面积为5平方厘米 求环形面积·求高手如题 已知下图阴影部分的面积是50.24m²,小圆的半径是3 m.正方形的面积是多少平方米? 2009年12月四级成绩错误437听力:106阅读:181综合:61写作:89大家认为听力成绩是不是错了……个人感觉我听力还是很不错的,据说最低分也就90我不会那么差吧 世界大学排名前一百名?求2010年最新数据!亚洲的占多少?中国的占多少?权威报告 已知n表示任何一个整数,则用n表示偶数为 ? 奇数为? 被3除余2的数是 两个连续整数之和是? 英语四级总分多少?各题的详细分数是多少?我要2013年12月的 编写VB程序 输出1至100(包括1和100)内能被7整除的所有整数用 循环语句 编写WHILE 或者 UNTIL 已知下图阴影部分面积是50.24平方米,小圆的半径是3m,正方形面积是多少?急用 2009年12月英语四级成绩 我刚查的四级成绩,太扯淡了,才366.就算我胡写也不可能就这点分.这个可以申请查卷不?怎么查?觉得自己成绩有问题的朋友就留个言,看看有多少有问题 有一个自然数含有10个不同的约数,但质因数只有两种:2和3.这个自然数最大是 所有偶数都可以用2n来表示(n为整数),请你表示出所有的奇数和所有被5除余2的数 求不大于200的只有15个因数的所有自然数 91的92次幂 除以100的余数 二项式定理解答 要求详细说明-919 怎么就算出 81的余数 已知下图阴影部分面积是50.24平方米,小圆的半径是3m,正方形面积是多少? 关于整除符号的使用当表示如“9能被3整除”,是用“3|9”还是“9|3”? 1.化简(√2+1)^5+(√2-1)^5= 2.利用二项式定理证明命题:15^8-1能被64整除 3.67^200除以9所得的余数是PS:67^200意为:67的200次方 设n为整数,则奇数可表示为,三个连续偶数中设中间的数为x,则其余两个偶数可表示为? 所有被3整除的数的集合 英语四级各题的具体分值? 什么是多项式?并举例说明.并举例说明,如果A是六次多项式,B是四次多项式,那么A+B是六次多项式,A-B是四次多项式. 什么是多项式,项数,次数,次数最高的项,常数项,系数.最好举例啊 下图中圆的半径是2厘米,长方形长与宽的比是3比2,求阴影部分的面积 什么是"对称多项式"?什么是"轮换多项式"?它们的区别和联系是什么?能举例说明吗?哪位GGJJ知道请告诉我,如果有它们的性质及证明最好,如果是附件的形式,就请给发到pigdai@163.com. 若图中圆与长方形面积相等,且长方形的长为6.28米,问阴影部分的面积是多少平方米?长方形的一个角就是圆的圆心,长方形的宽就是圆的半径.我还是一级,所以不能上传图片, 已知下图中的长方形长是8厘米,宽是4厘米,求阴影部分的面积 CET4的分数是怎么分布我的作文怎么会有115呢,不是说作文的总分才106吗? 用c语言求出20以内能被2整除的数或者又能被3整除的数之和 求下图中阴影部分的面积,长方形长是8米,宽是4米 正方形的面积是300平方米 阴影面积是? 当m为何值时,多项式x(x+1)(x+2)(x+3)+m是完全平方式?要过程~ 下图中的长方形长10厘米宽8厘米,三角形甲和乙的面积都是长方形面积的1/4,求阴影部分的面积 计算图中阴影部分的面积 圆外的正方形的1/4是300㎡ 一个弧形的面积第一题:第二题 要使多项式(x-1)(x+3)(x-4)(x-8)+m为一个完全平方式,则m等于____需要计算过程及辅助说明 1.能被3整除的最大两位奇数是( ) 2.能被3整除的最小两位偶数是( ) 3.个位0又是3的倍数的两位数是( )4.能被3和5整除的最大两位奇数是( ) C语言 请编程求【1,5000】间能被3整除但不能被5整除的偶数有多少个? C语言----->输入一批正整数(以零或负数为结束标志),求其中的奇数和。要求定义和调用输入一批正整数(以零或负数为结束标志),求其中的奇数和。要求定义和调用函数even(n)判断数的奇 请问SAT2数学中高次多项式函数的五个定理详细解释 两个五次多项式相加后A.十次多项式B.五次多项式C.次数不低于五次的多项式D.次数不高于五次的整式 英语四级各项分数分别是多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn