Private Const MAX_PATH = 260Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80End TypePrivate 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-folderFunction 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