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
【自定义函数】判断指定文件夹下是否包含子文件夹
最新推荐文章于 2025-04-04 23:39:01 发布