devxlogo

GetFileDescription – Get a file’s description through Windows API

GetFileDescription – Get a file’s description through Windows API

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

See also  Professionalism Starts in Your Inbox: Keys to Presenting Your Best Self in Email
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist