【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群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)