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


GM Creates Open Source uProtocol and Invites Automakers to Adopt It: Revolutionizing Automotive Software Development.
General Motors (GM) recently announced its entry into the Eclipse Foundation. The Eclipse Foundation is a prominent open-source software foundation. In addition, GMC announced its contribution of “uProtocol” to facilitate