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 17, 2001

GetFileDescriptionFromReg - Get a file's description from the registry

' get the description of a file from the registry
' or a null string if the file's extension isn't registered
'
' NOTE: requires the GetRegistrtValue function

Function GetFileDescriptionFromReg(ByVal FileName As String) As String
    Const HKEY_CLASSES_ROOT = &H80000000
    
    Dim i As Integer
    Dim ext As String
    Dim classname As String
    
    ' extract the file extension
    i = InStr(FileName, ".")
    If i = 0 Then
        ' extension not found, let's try with the file itself
        ext = "." & FileName
    Else
        ext = Mid$(FileName, i)
    End If
    
    ' get the classname from the registry
    classname = GetRegistryValue(HKEY_CLASSES_ROOT, ext, "")
    If Len(classname) Then
        GetFileDescriptionFromReg = GetRegistryValue(HKEY_CLASSES_ROOT, _
            classname, "")
    End If
End Function
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


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

 

 

Sitemap