devxlogo

FolderHasSubfolders – Determine whether a directory has one or more subdirectories

FolderHasSubfolders – Determine whether a directory has one or more subdirectories

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

devx-admin

Share the Post: