【Access小品】分解问题--删除空文件夹示例
时 间:2014-07-01 15:55:51
作 者:煮江品茶 ID:10802 城市:武汉
摘 要:【Access小品】分解问题--删除空文件夹示例
正 文:
论坛中有一个版友问如何删除空文件夹?对于这个问题就需要进行问题的分解。我们来看看会有些什么样的情形:首先当然是从最简单直观的说起,一个文件夹中没有子文件夹也不包含文件,这显然是一个空文件夹。如果仅仅是这样一种简单的情况,大可不必专门写一个程序去处理它。通常情况下,我们会想要对这样一个现实的情况进行处理--就是给定一个文件夹地址,然后在这个文件夹中找到它内部存在的所有空文件夹,然后去删除它们。所以,所谓“删除空文件夹”这个问题,需要分解为:1、删除空文件夹;2、删除给定非空文件夹中的所有为空的子文件夹;3、当所有子文件夹皆空时,删除父文件夹。
这样一分解,问题立刻了然,仿佛乾坤朗朗一般。剩下的只是怎么来综合性地解决三个问题而已,于是乎下面的示例便告诉你一种解决的思路,代码太简单,讲解起来寡然无味,同志们自己去看便可以了。
示例:点击下载此附件
视图:
核心代码:
Public Sub DeleteNullFolder(ByVal path As String)
'功能:删除空文件夹
'引用:Microsoft Scripting Runtime
Dim fso As New FileSystemObject
Dim fld As Folder
Dim subfld As Folder
If fso.FolderExists(path) = True Then
Set fld = fso.GetFolder(path)
If fld.SubFolders.Count = 0 And fld.Files.Count = 0 Then '无子文件夹和文件
fld.Delete
Else
If fld.SubFolders.Count > 0 Then '遍历子文件夹并递归,删除其中的空文件夹
For Each subfld In fld.SubFolders
Call DeleteNullFolder(subfld.path) '递归
Next
End If
If fld.SubFolders.Count = 0 And fld.Files.Count = 0 Then '经过删除子文件夹后,再判断是否为空文件夹
fld.Delete
End If
End If
End If
Set fso = Nothing
Set fld = Nothing
Set subfld = Nothing
End Sub
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)