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

采用递归算法删除带有多级子目录的目录-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

IDC:2015年全球平板电脑出货量将超PC Web开发者的福利 30段超实用CSS代码 库克出席D11科技大会:苹果公司没有陷入麻烦 千兆的带宽是不够的,最新研究将我们带入400G时代! 告诉你一个事实:移动互联网依然不大 一切才刚刚开始 戴尔的10亿美元云扩建计划到底是什么? iOS vs. Android,应用设计该如何对症下药? 扁平化设计五大原则 16种折磨开发者的方式 2013年度中国优秀开源项目征集活动正式启动 技术趋势:产品设计向“钱”看 服务器领域:旧时代已过 新时代正在降临 速度与金钱的碰撞:F1赛车将搭上大数据的东风 中国&#183;北京第一届开源大会Hadoop专场侧记:Hadoop已经成为大数据分析平台的标配 Marissa Mayer为何带雅虎重回门户时代? 开发者最爱的三款开发工具 Facebook开源JavaScript库:React 硬件天堂深圳行:从Seeed Studio、Knewone到柴火创客空间 消费应用开发难赚钱?做个企业app store吧 开发开源软件的智慧:够简单,很好用 历届中国云计算大会PPT集萃(终章):架构到实践的全面解析 透过现象看本质:详谈数据可视化 专家观点:HTML5无法彻底抹杀Native应用 Google地图工程主管Raj Shah跳槽至微软在线服务部门 微软证实Windows 8.1引入类“开始”按钮 系统6月26日开放下载 PHP开发者意向调查:移动开发+云服务成为焦点 研发周报:16种折磨开发者的方式 移动周报:Jolla和Sailfish OS,那些你应该知道的事儿 优化技巧分享:把内存消耗降低至原来的1/20 85后程序员:独自一人,完成一个HTML5开源图形库 关于Waze的前世今生,你所不知道的事 请高手指教:怎么创建动态链接库,怎么用动态链接库,我是一个初学者,唯有的50分全送出去请教此问题 有谁能帮我?我用OpenDialog找开数据库文件,只能打开一次。再次打开或打开另一个数据库文件,就会地址出错,why? 转让书刊 this->GetParent()->ShouWindow(SW_MIN..)最小化以后,却不能点击任务条还原,怎样还原 JBuilder如何产生Make文件? 如何使listbox的两列显示对齐? 如何在自己的主页中添加代码??用来污染IE的,到底是加在哪个位置??//最好写具体些!!! 关于图片存入数据库的问题 请教大量二进制数据在内存中的存放(马上给分) 讨论:有关tomcat的解释顺序的问题. TechnoFantasy 请近来,还有100分哦:) 打印问题 强烈建议在文档中心增加C++ BUILD!!! 对于同一个SOCKET,能否起多个线程同时读、写呢?如何实现? ??!!!有急事相求 谁知道如何在自己的程序中建立象IIS那样的meta-database数据库结构? 怎样在数据库连接关闭后读出数据? 你知道扩展名为img是什么文件吗? 请问如何在Delphi中实现 AutoComplete(自动完成) 的功能?急!急!急! 请教一下在MDI的程序中pmyView->GetParent()->GetParent()->..... 都得到了什么?? 好奇怪的初始化问题。 一个RANDOMACCESSFILE的问题 急急急!!!VB中如何 实现多行删除表中数据???? 有关注册表的问题 ASP中用ADO连接SQL Server2000的连接字符串怎么写? 在画布上怎么实现滚动条 急~~~如何从文件中取值赋给动态数组?~~~~在线等待 到哪里能够下载 BCB6 Update 请问关于REDHAT下关于安装MYSQL 的问题 请问关于REDHAT下关于安装MYSQL 的问题 CreateFolder("name") 问题 name是变量怎么办???? 急!!! 如何做像 http://www.my0807.com/1.gif 的文字。。 请教真正的高手。 如何用TURBOC 2.0编程检测WINDOWS是否已在运行中? VS.NET能专Windows98中安装吗? 如何创建一个imagelist,用CImageList,可以记录24位色的位图 这个关于树的问题我越想越想不通,请手指点指点:) 用winsock控件设置client/server程序时,server端应怎样设置,请各位大虾帮帮小弟!!谢了! 从MIDI文件转换成简谱的问题? 请问谁有高招??????? SOS ,谁能帮帮我? 如何在一个程序中得知另一个指定的程序是否运行? 很急!!请教高手,这样的思路是否正确?(数据库方面)内有非常详细的说明,谢谢!! 我是处学者 这个关于树的问题我越想越想不通,请手指点指点:) 50小分征集C++的类和VBS的类的区别? hg0001(CoolFish) ,分已给!请发给我! 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 如何使用 WRITEFILE 函数将二进制数据写入文件? 我装的是XP,JDK1.3,无法编译程序 电脑上的时钟在关机之后就停止走动,下次开机时仍是上次的时间,是怎么回事?请教大家! 杀灭细菌芽孢最有效的方法?A煮沸法 B巴氏消毒法 C高压蒸汽灭菌法 D紫外线照射 E90%乙醇消毒 一个数被8除余5,被5除余2,被7除余5,这个数最小是() 细菌芽胞怎么杀灭 芽孢杀灭可以有哪几种方法现有的几种灭菌方法那些可以杀灭芽孢?要全面点的回答,也可以说说原理 将15克A物质,24克B物质,8克C物质混合加热,发生化学反应,经分析得知反应的混合物中含8克A,30克C,接上面的题目:还含有一种物质D,若A、B、C、D的相对分子质量依次为28、32、44、18则它们之间所 细菌的繁殖体是什么, 细菌的芽孢就一种生殖方式不? 芽孢怎么从细菌里出来 第17题求解,请一步步来解释,因为本人不会余式定理. 毛主席为什么说岸英也是“朝鲜人民的儿子”? 真菌和细菌都能产生芽孢? 求初中余式定理例题 巴氏消毒可以彻底杀灭细菌芽孢吗?我感觉温度太低,时间太短,应该不行. ______ the four seasons,which season do you like bestA.of B.DuringC.forD.to理由 “尕”这个字怎么读,要读音. 谁能翻译一下那段朝鲜文字 朝鲜金日成首相说岸英同志是为朝鲜人民的解放事业牺牲的也是朝鲜人民的儿子我要求把岸英葬在朝(改为转述句 一个数被8除余5,被5除余2,这个数最小是多少? 韩国和朝鲜的语言文字一样吗? 朝鲜金日成首相说岸英是为朝鲜人民的解放事业牺甡的,也是朝鲜人民的儿子,他要求 一个细菌一生可以形成几次芽孢? 朝鲜和韩国的语言文字是不是一样的?朝鲜战争后,朝鲜分裂为北朝鲜和韩国,后来他们的文字是不是也跟着改了. 1:毛主席为什么说岸英“也是朝鲜人民的儿子”?2:从画波浪线的三句话中,你体会到了什么? 这个字读什么(衢)有人知道吗 朝鲜字 急 그렇쿠나 .왜서 广东话(贵)怎么说,用拼音, 一个平行四边形的底长18厘米,高是底的2分之1,它的面积是() ‘佳’的粤语拼音Ka、Kai、Ga 正确的是哪一个 忽然用粤语怎么说, 衢.这个字怎么读, 英语翻译浮夸(eason's moving on stage 1演唱会)有人问我我就会讲但是无人来我期待到无奈有话要讲得不到装载我的心情犹像樽盖等被揭开咀巴却在养青苔人潮内愈文静愈变得不受理睬自己要搞出 lu yan ting 用广东话拼音怎么拼? "衢"这个字读啥? 团的 粤语拼音请问 “团” 字的粤语拼音是什么? 在12.5%的后面去掉百分号,这个数就() 衢.这个字读? 谁有一些常用粤语的拼音 15.5%的百分号去掉,这个数就 用数学归纳法证明:1×2+2×5+.+n(3n-1)=n^2(n+1)复制粘贴来的别给我谢谢 朝鲜脱北者是什么意思? 岸英本是毛泽东的儿子,为什么说他也是朝鲜人民的儿子? 用数学归纳法证明:1*2+2*5+...+n(3n-1)=n^2(n+1)(n∈N*) 只去掉12.5%的百分号,这个数( ). 岸英是我的儿子.我尊重朝鲜人民的意愿.用关联词合成一句话 读拼音,在括号里填上合适的字.qū理( )( )服急急急~~~~~ 现在的朝鲜是什么样子 粤语拼音胡晓彤 怎么拼?最好帮忙取个好听的英文名多些选择...THX.. 请问站在道德的制高点审视他人是什么意思?可以举点例子吗?理论说明更好! 去朝鲜怎么去 肉制品芽孢菌如何杀死高温灭菌锅多少温度和时间合适? 请举一个例子说明乘数原理? 朝鲜怎样 What would you like to eat in the season?What's the weather like in the season? 什么是限制因子定律?并举例简要说明 英语翻译嗨.今晚大家来到这里我真的好开心啊.多谢大家一直都好支持我.现在我准备了一句话.我爱你哦.如题,把上面的话用拼音翻译成粤语发音.是个小品的台词. 英语句子的回答:1、What can you wear in the season?2、What’s the weather like in the season? 举几个说明事实与理论存在差距例子一个不够 粤语拼音翻译白明望詹晓翠这两个名字怎么翻译? What was the weather like on that day?的中文谁知道? 一个细菌能形成几个芽胞
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘