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 the description of the specified file/folder ' (for example "Folder", "Executable file", "Bmp Image" and so on)Function GetFileDescription(ByVal sPath As String) As String Const SHGFI_TYPENAME = &H400 Dim FInfo As SHFILEINFO ' retrieve the item's attributes SHGetFileInfo sPath, 0, FInfo, Len(FInfo), SHGFI_TYPENAME ' read the szTypeName field GetFileDescription = Left$(FInfo.szTypeName, InStr(FInfo.szTypeName & _ vbNullChar, vbNullChar) - 1)End Function
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
