用自定义函数判断指定文件夹下是否包含子文件夹
2010-02-03 21:54
288 查看
Function CheckFolder(sPath As String) As 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
相关文章推荐
- 【自定义函数】判断指定文件夹下是否包含子文件夹
- jQuery判断数组是否包含了指定的元素
- solr入门之Solr函数查询初使用之查询字段是否包含指定内容
- MFC判断文件或文件夹是否存在函数
- asp.net 判断指定路径指定文件夹下是否有图片文件存在
- List.contains方法——判断列表中是否包含指定元素
- 自定义函数判断数组是否为空
- 使用回调函数的方式 删除包含子文件夹及文件的 文件夹,删除文件夹内指定类型的文件
- [QualityCenter]设置工作流脚本-根据某字段是否包含指定字符串来判断其他字段的选值
- 编写程序,自定义一函数,用来判断一个整数是否为素数,主函数输入一个数,输出是否为素数
- 编写一个函数,从标准输入读取一列整数, 把这些值存储在一个动态分配的数组中并返回这个数组。 函数通过观察EOF判断输入列表是否结束。 数组的第一个数是数组包含的值的个数, 它的后面就是这些整数值。
- 用oracle函数判断字符串中是否包含中文
- PHP is_writeable() 函数判断指定的文件是否可写
- SQL Server中判断字符串是否包含指定的子串
- oracle 存储过程 判断字段中是否包含指定的字符
- containsKey方法——判断是否包含指定的键名
- java中指定字符串是否包含一个字串。(比如判断邮箱是否含有@)
- java删除整个文件夹或文件(无视是否包含子文件夹)
- containsKey方法——判断是否包含指定的键名
- JavaScript判断数组是否包含指定元素的方法