Binaryworld - FolderHasSubfolders - Determine whether a directory has one or more su ... [ VB -> Files & Folder ]

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

'Returns True if the specified folder has at least one sub-folder

Function FolderHasSubFolders(ByVal sPath As String) As Boolean
  Const SFGAO_HASSUBFOLDER = &H80000000
  Const SHGFI_ATTRIBUTES = &H800

  Dim FInfo As SHFILEINFO

  ' retrieve the folder's attributes
  SHGetFileInfo sPath, 0, FInfo, Len(FInfo), SHGFI_ATTRIBUTES
  ' check che presence of the HASSUBFOLDER attribute
  FolderHasSubFolders = (FInfo.dwAttributes And SFGAO_HASSUBFOLDER)
End Function