【自定义函数】判断指定文件夹下是否包含子文件夹
2015-05-26 16:59
176 查看
Function CheckFolder(sPath As String) As Boolean '参数为指定文件夹的路径,返回值为 Boolean 型 If Right(sPath, 1) <> "/" Then sPath = sPath & "/" '判断路径右端是否包含"/",如果不包含则添加 Dim sDir As String sDir = Dir(sPath & "*.*", vbDirectory) While sDir <> "" If GetAttr(sPath & sDir) And vbDirectory Then CheckFolder = True sDir = "" Else sDir = Dir() End If Wend End Function
相关文章推荐
- 用自定义函数判断指定文件夹下是否包含子文件夹
- 一个很有用的自定义函数(判断自然数是否包含2的指定次幂)
- 一个很有用的自定义函数(判断自然数是否包含2的指定次幂)
- mysql数据库中,判断某张表中,是否包含有指定字段
- 【Stackoverflow好问题】java中,如何判断数组Array是否包含指定的值
- Map.containsKey方法——判断Map集合对象中是否包含指定的键名
- 判断是否包含指定的字符
- [QualityCenter]设置工作流脚本-根据某字段是否包含指定字符串来判断其他字段的选值
- containsKey方法——判断是否包含指定的键名
- jquery 判断array中是否包含指定字符串
- 判断 DataReader 里面是否包含指定的列
- 批量复制某文件夹下文件(包含子文件夹)到指定文件夹
- 1.2.4 List.contains方法——判断列表中是否包含指定元素
- jQuery判断数组是否包含了指定的元素
- C# 判断指定字符串是否包含有汉字
- shell脚本如何判断某个文件里是否包含指定的字符?
- JavaScript判断数组是否包含指定元素的方法
- oracle字符串载取及判断是否包含指定字符串
- java实现压缩指定文件夹(文件夹包含子文件夹或文件)为zip格式压缩包
- containsKey方法——判断是否包含指定的键名