Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB4/32,VB5,VB6
Expertise: Intermediate
Feb 10, 2001

GetFileDescription - Get a file's description through Windows API

Private Const MAX_PATH = 260

Private Type SHFILEINFO
    hIcon As Long
    iIcon As Long
    dwAttributes As Long
    szDisplayName As String * MAX_PATH
    szTypeName As String * 80
End Type

Private 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

Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap