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

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

用VB实现文件查找功能 VB用Winsock控件实现文件的下载 VB用两分法搜索列表框或组合框中的数据 在 ListBox 之中, 如何检测鼠标所在位置的选项? -VB资料 在 Textbox 中,录入 N 个字符后移到下栏-VB资料 在 VB 中控制 Word 在GotFocus时快速选择文本 -VB资料 在VB中使用文件对象 在VB中使用艺术字 在VB中引用.dbf及索引文件 在Windows操作系统中改变文件打开方式-VB资料 在程序运行时,怎样把多个文本框的内容保存起来-VB资料 在打印字符串时自动换行 -VB资料 在文本框中快速增加一串字符-VB资料 在文本框中实现由加减号输入数据-VB资料 在引用项目找不到Excel、Word等Office软体Lib的解决法-VB资料 VB怎样从文件列表框中取得文件的完整路径和名称 VB制作一个有参数的执行文件(方法之简单难以想像) 资源档(.RES)的应用-VB资料 自定义Text的pop-up菜单-VB资料 自动出现动画、进度和确认的文件操作 -VB资料 自动选择 Text 的内容-VB资料 VB 调用 IMAGE 控件实现图像缩放的一种方法 VB5 实 现 窗 口 图 像 缩 放、 滚 动 技 巧 VB编程之提速攻略(一) VB开发通讯软件 VB实现图形动画的三种方法 VB随机图像的魅力 VB中不规则图形热点的实现 VB中任意旋转位图的实现 VB中实现图像特技 Grid中的數據源刷新問題?? 在c#中如何开辟一块指定的内存空间? 聊天室的隐藏框架怎样做啊,我把框架尺寸设成0了,鼠标还是不停的闪/ 出什么事情了? listView怎么加入打印功能? 如果你拽的话:50分全是你的啦。帮我看看这条sql语句错在那里? Excelsior JET Professional Edition 谁有这个版本啊,破解的??在线等待…… 我的程序编译通过了,为什么测试通不过??代码在下面,大家看看是关于数据库和哈希表的 如何用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 不会出现文件列表? 遇到飓风这样的自然灾害怎么自救或预防?(略写一点 检查书开头怎么写 帝王的老婆叫什么? 如果火车晚点,怎么查准确的到站时间?RT 我们老师要我们写一个关于班级管理的建议 以及对老师的建议,有木有人会写啊?因为班级博客被采纳了,上级的学校领导要把我们的班级博客展现给其他学校的同学们看,明天要进行一个VCR采 500字作文,关于阅兵的,题目是祖国在我心中作文,关于阅兵的,题目是祖国在我心中今年的阅兵, 火车正晚点到达时间前面有个+1是什么意思新余到株洲的到达时间04:04 还有正点率里为什么会有0%?是指每次都不准么 怎么判断一辆火车晚点率高 怎么选择正常率高的火车班次 求大神 急 给我一片700字的《祖国,我终于回来了》读后感 求十一阅兵500字观后感要2009年的 火车晚点可能有哪些情况?什么情况下还会晚点时间未定? 请问 怎样记英语课文快 写出古人爱书的成语 初中班级管理中存在哪些问题 我对记忆英语课文有问题 总是记不住一般时候记忆英语课文 有很大困难 记忆一篇文章需要很长时间 而且几天后就忘得干干净净了 古人写的关于爱情的诗篇最好是文言类的文体段落, 如何把初中的班级管理好 老是记不住英语课文!1 亲爱的我只想做的老公其他的都不想 英语怎么读? “诺你喜欢怪人其实我很美”什么意思? 鲁迅《故乡》的读后感 第四届中华赞诗词歌赋创作大赛为什么作文上传不了资料一直上传了1个小时,都没上传完(详情请看图)拜托了 谁能正确解答 再加100分 初中班级管理计划我班纪律差 怎样记英语课文?最近老记不住 能够自我保护的动物 在火车站,一位老奶奶问一个小孩,火车几点到站,小孩说了五个英文单词涂, 若你喜欢怪人 其实我很美 的繁体子怎么写 那些动物有自我保护能力我想知道具体的那些动物有自我保护的方法? 是怎样保护自己的? 最好是大家都知道或认识的动物! 谁可以告诉我 请问火车的到站时间准确吗,后面+1是什么意思? 初中班级管理计划怎么写 各种动物自我保护方式多举例子 一列火车上午9:10到站,这列火车一共行驶了15个小时50分,这列火车什么时间出发的? 以知圆O的半径为5cm,点O到弦AB的距离为3cm,则弦AB的长为_______cm 动物怎样自救 关于 我的2014 这篇作文应该怎么写300字有急用 火车4小时行驶了600千米;速度和时间的最简整数比是(),比值是()火车4小时行驶了600千米;路程和时间的最简整数比是(150:1),比值是(150),速度和时间的最简整数比是(),比值是() 体育室有足球、排球若干个,排球的个数比足球多1/5,正好多5个.排球、足球各有多少个 求作文 怎么写?我的2014, 英语翻译只有喜欢没有爱 不是么 英文翻译 体育室有足球、排球若干个,排球的个数比足球的个数多1/5,正好多5个.足球、排球各有多少个球求大神教,必须用份数做真的很急很急很急😭😭😭 2014的我 作文(苍天那,大地那!快救救我!……) 已知圆O的直径为10CM,弦AB=6CM,求圆O到弦的AB的距离初中的题 写下步骤 学校新买的排球个数比足球多60个,足球个数的80%.新买排球多少个? 作文怎么写 皇上的弟弟,王爷,被皇上发现和宫女私通,会怎么样 甲乙两列火车同时从相距560千米的两地相对开出,2分之7小时后两车在途中相遇,甲每小时行75千米,乙每小时 怎样用英语介绍自己?要有中文哦! 皇上的弟弟和宫女私通,被发现会怎么样 什么动物的腿部利于奔跑,羚羊,猎豹?请从 生物运动力学 用英语介绍自己 (要有中文备注) 皇上的弟弟和宫女私通,被皇后发现了,会怎么处理? 学校购进三种球,其中篮球占总数的三分之一,足球与其它两种球个数的比为一比三,排球十五个,三种球共多少个 已知圆心O的半径是5,AB,CD为圆心O的两条弦,且AB平行CD,AB=6,CD=8求AB与CD之间的距离 皇上很宠他,但是有一天发现了这个弟弟和宫女私通,弟弟会不会被处死 遇到自然灾害时,我们应当怎样自救 看什么书对写作文有帮助? (1)磁悬浮列车以430千米一小时的速度行驶了100千米,行驶的路程与速度的比是( ) (2)买45本故事书,共需要207元.书的总价与本书的比是( )(3)7分之3=( )÷( )=( ):( )( )÷ 面对自然灾害时应该怎样自救 写作文介绍什么书最好 1、磁悬浮列车以430千米每小时的速度行驶了100千米,行驶的路程与速度的比是( ).2、买45本故事书,共需207元.书的总价与本数的比是( ).3、7分之3=( )÷( )=( ):( ),( )÷( )=a
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘