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

采用递归算法删除带有多级子目录的目录-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
采用递归算法删除带有多级子目录的目录-VB资料

Option Explicit

Private Sub Command1_Click()
Dim strPathName As String
strPathName = ""
strPathName = InputBox("请输入需要删除的文件夹名称∶", "删除文件夹")
If strPathName = "" Then Exit Sub

On Error GoTo ErrorHandle
SetAttr strPathName, vbNormal '此行主要是为了检查文件夹名称的有效性
RecurseTree strPathName
Label1.Caption = "文件夹" & strPathName & "已经删除!"
Exit Sub
ErrorHandle:
MsgBox "无效的文件夹名称:" & strPathName
End Sub

Sub RecurseTree(CurrPath As String)
Dim sFileName As String
Dim newPath As String
Dim sPath As String
Static oldPath As String

sPath = CurrPath & "\"

sFileName = Dir(sPath, 31) '31的含义∶31=vbNormal+vbReadOnly+vbHidden+vbSystem+vbVolume+vbDirectory
Do While sFileName <> ""
If sFileName <> "." And sFileName <> ".." Then
If GetAttr(sPath & sFileName) And vbDirectory Then '如果是目录和文件夹
newPath = sPath & sFileName
RecurseTree newPath
sFileName = Dir(sPath, 31)
Else
SetAttr sPath & sFileName, vbNormal
Kill (sPath & sFileName)
Label1.Caption = sPath & sFileName '显示删除过程
sFileName = Dir
End If
Else
sFileName = Dir
End If
DoEvents
Loop
SetAttr CurrPath, vbNormal
RmDir CurrPath
Label1.Caption = CurrPath
End Sub

Java内存模型的历史变迁 Java 8与Apache Ignite Java开发与技术挑战——关于技术的技术思考 专访唯品会架构师肖桦:做编码的架构师 越来越“简单”的Java 我的Java!越过山丘 专访沙梓社:做个“Think Different”的技术牛人 基于ES6,使用React、Webpack、Babel构建模块化JavaScript应用 财税街创始人石克清:创业须空杯心态+有效社交 自我知识管理:连贯性就是生产率 玩转Google I/O 2015:Android M、IoT、Glass 2.0、VR、ATAP ARC中Retain Cycle揭秘 失控与逆转!企业移动化2.0时代下如何求变? 玩转物联网之MQTT 专访都灵创客教育奚炎:被忽视的Maker教育 13岁iOS开发者:Swift开发Sprite Kit游戏实践 专访豌豆荚「自动装」开发团队:无需Root即可批量点击「下一步」 iOS项目的持续集成与管理 《近匠》谛听科技,探索智慧家庭的智能网关 【简讯】Python 3.5.0b1发布 《算法的乐趣》作者王晓华访谈:多看、多做、多想是秘诀 专访李祎:Java在Testin的技术应用 React首部经典图书推荐:全程经典实例,360度剖析React.js 再做一个Android!Google发布第二代VR眼镜Cardboard Go语言开发常见陷阱,你遇到过几个? 奏响年度最强音 第七届中国云计算大会日程全公布(表) 【CTO讲堂】请在还年轻的时候,尽量多踩些坑 以细分使用场景为突破点 探究墨迹天气的体验创新 熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn 请问:在另一个.asp文件中如何调用相同的变量? WEB初级应用问题 DIALOGBAR问题 请想报考明年的网络设计师的朋友进来聊聊 Oracle面向对象特征讨论,请进! 我学会VISUAL C++ 到底要多少时间 线程调试问题 大家一起进来讨论oracle和sql server的日志哦 请指教如果设置服务器端COM组件的权限,使终端可以访问到?分数好说啦,急,高手快帮忙! 如何把程序嵌入到widows Expolore 中? 今天心情特好!散分 在vc下怎样调出window下的“打开方式”对话框,他是类还是控件!请高手指点! 一个门外汉的问题~~~~ 谁知道windows共享密码如何算的 vc中asm怎么不執行? 在开始菜单点右键,拉出的菜单里的内容,怎么添加删除?? 帮忙找一个和VB的属性区一样的代码,控件或类库均可。 Word 中字体的问题 我买了一台SLE4442读写器, 为什么不能写 谁用过FAST REPORT 请求帮助 realplayer中文件菜单栏中的以看过的文件名,怎么删除??? php如何改写或者是添加一个cron的命令参数给linux服务器? SQL Server 能制作表单和报表吗?????? DirectDraw页面格式问题(两个)。答对100分绝对送上,从不食言!(附源码) VC++中的内部交互调试器在哪? 人邮版的C++面向对象高效编程如何? realplayer中文件菜单栏中的以看过的文件名,怎么删除? 如何实现真正的无标题栏的拖动? 用"select top n"取了前n纪录后,要再接着取n+1至2n条纪录,接着再取2n+1至3n……,这种取法要怎样实现呢? 如何在Excel中编制一个宏? 如何得知程序的一个实例正在运行? 送分了,送分了,虽然不多,但天天有! 为什么select count(*) from test 时,提示表或示图不存在!!! 请问如何设置mp3文件的在线播放?? 请问在内部局域网正常的情况下,打印机无法共享(共享以后没有效果)的主要原因是什么?谢谢! ===我对Linux上的Oracle8.1.7.0.1操作的时候只读,为什么啊???==== 请给我一个GetCurrentDirectory使用实例, 问一个深入MFC的简单问题 请问有关delphi项目编译的一个小问题。 各位,那里有VisualAge for Java4.0下在?我从ibm的网站上下载了,但是安装不了,说是语言不对! 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提供的又是些什么?它们重复吗? 一个长方形花坛,周长是48米,长是宽的2倍,这个长方形花坛的长和宽分别是多少米? 在物理公式中:电流是电压除以电阻计算出来的吗? 下列各数中,与2倍根号3的积为有理数的是?2+根号32-根号3-2+根号3根号3 一个长方形花坛,长和宽的比是7:4,如果长减少2米,同时宽增加4米,它就变成正方形,这个长方形花坛的面积是多少平方米(接上面的)?要有列式,要讲解,好的提赏! 电压 电阻 电流 之间的公式计算什么的 还有一些功率 什么的公式 例如:R=IU 什么的 列全啊求求了 最好列 清楚一点 物理电学给我学的都快阳痿了 如果一个数与根号2相乘的结果是有理数,则这个数的一般形式是什么? 一个长方形花坛的周长是120米,长与宽的比是3:1,这个长方形花坛的长和宽各是多少?面积呢? 3.56万改写成用“一”作单位的数是() 若一个数与根号3的积是有理数,则这个数的一般形式为 若函数f(x),g(x)分别是R上的奇函数,偶函数,且满足f(x)-g(x)=e^x,比较g(0),f(2),f(3)的大小要有过程 谢! 正项等比数列an的前n项和为sn,a1=2,且a2,a3的等差中项为s2,求an的通项公式正项等比数列an的前n项和为sn,a1=2,且a2,a3的等差中项为s2,1.求an的通项公式2.设bn=log2an,求数列{bn}的前n项和Tn 求解混联电路各点电压及电流,请详细列式并讲解思路. 若函数f(x),g(x)分别是R上的奇函数、偶函数,且满足f(x)-g(x)=e^x,比较f(2)f(3)g(0)的大小 如右图,大正方形CDEF的边长是16cm,四边形ABCG是正方形.求阴影部分面积 若多项式x的二次方+ax+8和多项式x的二次方-3x+b相乘的积中不含x的二次方.x的三次方.项.求a.bkuai 若函数f(x)和g(x)分别是R上的奇函数和偶函数,且满足f(x)-g(x)=e的x次幂Y=e的x次幂为什么是增函数?e的x次幂为什么大于0? 如图,正方形ABCG的和正方形CDEF的边长分别为a、b.(1)用含a,b的代数式表示阴影部分的面积; (2)当a如图,正方形ABCG的和正方形CDEF的边长分别为a、b.(1)用含a,b的代数式表示阴影部分的面 如果关于x的多项式x^4+4x^2-1/2与3x^n+5x是同次多项式,求1/2n^3+2n^2-3n-4的值, 若函数f(x),g(x)分别为R上的奇函数,偶函数,且满足f(x)-g(x)=e^x,设a=f(2),b=f(3),c=g(0),则a,b,c的大小要有过程的,e^x表示e的x次方 串并联电路谐振原理及电路电流、电压、电抗计算公式是什么?混联电路不单是串联或并联,要在一起的电路 已知:多项式mx^4+(m-2)x^3+(2n+1)x^2-3x+n中不含x^3和x^2项,求出这个多项式,并求当x=-1时代数式的值要快啊~~很急~~好的加分 若函数f(x),g(x)分别为R上的奇函数、偶函数,且满足f(x)-g(x)=e^x,则g(0),f(2),f(3)的大小关系为_____. 串联谐振为什么是过电压?并联谐振为什么是过电流? 三相异步电动机的三相电流不平衡度在10%以内,这个比值是不是一相与三相平均值的比值? 380V配电柜上三个电流表都显示100A怎样算他功率?是P=1.732乘电流i乘电压380V在乘功率因数吗 0.8的计数单位是( ),把它改成用0.001作单位的数是( ) 请问:三相电流不平衡许可范围是多少? 四边形abcd是边长为12cm的正方形,e是正方形的中心f是bc边的中心求阴影部分面积 如何证明根号2不是有理数? 已知关于x的多项式(mx+1)(-3x+4)展开后不含x项,求m的值 正方形ABCD边长12cm,阴影部分面积24平方厘米,求梯形ABCDE的面积. 请在这里概述您的问题等比数列中,a1+a2+a3=18,a2+a3+a4=-9,且Sn=a1+2a2+3(a3+a4+…+an),则limSn= 多项式(mx+4)(2-3x)展开后不含x项则m=? 正方形ABCD的边长是12cm,且E是DC的中点,求阴影部分面积. 如图,正方形ABCG的和正方形CDEF的边长分别为a、b.(1)用含a,b的代数式表示阴影部分的面积 多项式(mx+4)(2-3x)展开后不含x项,则m= 等比数列an,aq 如图,正方形ABCG和正方形CDEF的边长分别为a,b.用含a,b的代数式表示阴影部分的面积,当a=4,b=3时,阴影部分的面积为多少? 多项式(mx+8)(2-3x)展开后不含x项求m的值 甲乙两数互为倒数,把甲数缩小10倍是4分之1,原来两数的和是 如图,正方形ABCD和正方形FCDE边长分别是10厘米和12厘米,求阴影部分的面积. 有一列数:1,1,2,3,5,8,13,21,34……,第2007个数被7除的余数 下图甲,乙都是正方形,a=12cm,b=10cm,求阴影部分面积 并联电路个支路两端的电压( ),都等于( )电压.用公式表示是:( )?填空题,谢谢!. 若多项式(mx+8)(2-3x)展开后不含x项,求m的值 一个电机功率是3KW.电压是380V,电流是6.3A.这个电流数是怎么求出来的 把0.9改写成以0.001为单位的数是什么? 把最小的两位数与最大的一位数的和缩小到原来的百分之一是多少? 求下面图形中阴影部分的面积,上底是10cm,下底是12cm,高是8cm. 把0.3改写成0.01为单位的数是()改写成0.001为单位的数是() 关于EXCEL表格中累加公式我想做一个表格,一个行中A1是原始输入的数值如5,B1是最后结果5,当我第二次在A1中输入新的数值时如8,B1的最后结果就是13,第三次在A1中输入数值继续累加,B1也发生变化 电压 电流 电阻的关系?什么公式? 如上图,四边形ABCD是长方形,AB=5cm,AD=8cm;四边形GECF是正方形,EC=3cm.求阴影部分的面积. excel表格合并同类项并累加 方法A B C D E货号 名称 数量 价格 折后价001 甲 1 2 1 002 乙 2 2 1003 丙 2 1 0.8003 丙 2 2 1 001 甲 1 1 0.8 计算后需要这样A B C D E货号 名称 数量 价格 折后价001 甲 2 3 1.8002 乙 已知数列{an}的前n项和为Sn 1若数列{an}是等比数列,满足2a1+a3=3a2.a3+2是a已知数列{an}的前n项和为Sn1若数列{an}是等比数列,满足2a1+a3=3a2.a3+2是a2.a4的等差中项,求数列{an}的通向公式 正方形ABCD,AB=6厘米,EC=10厘米.求阴影部分的面积? 6.4里有()个0.1,改写成以百分之一为单位是() 填什么?快!快!快!我急着写作业! 若函数f(x)=a的x-b次幂的图像如图所示,其中a,b是常数,则b(a-1)与0的大小关系是图像减函数,过(-1,1) 分之一次幂怎么算 下列各数中,根号1,根号2,根号3……,根号2010,有理数有多少个?怎么解答出来的 我要的主要是过程及思路
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn