Mß adresß° podadresß°e ?
Funkce:
Private
Const MAX_PATH = 260
Private Type SHFILEINFO
hIcon As Long
iIcon As Long
dwAttributes As Long
szDisplayName As String * MAX_PATH
szTypeName As String * 80
End Type
Private Declare Function SHGetFileInfo Lib "Shell32" Alias _
"SHGetFileInfoA" (ByVal pszPath As Any, _
ByVal dwFileAttributes As Long, psfi As SHFILEINFO,
_
ByVal cbFileInfo As Long, ByVal uFlags As Long) As Long
'Vracφ True, pokud
specifikovan² adresß° mß alespo≥ jeden podadresß°
Function FolderHasSubFolders(ByVal sPath As String) As Boolean
Const SFGAO_HASSUBFOLDER = &H80000000
Const SHGFI_ATTRIBUTES = &H800
Dim FInfo As SHFILEINFO
' ZjiÜt∞nφ atribut∙ adresß°e
SHGetFileInfo sPath, 0, FInfo, Len(FInfo), SHGFI_ATTRIBUTES
' Test existence atributu HASSUBFOLDER
FolderHasSubFolders = (FInfo.dwAttributes And SFGAO_HASSUBFOLDER)
End Function