Login | Register   
RSS Feed
Download our iPhone app
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
        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.