Determining File Types from Extension (Excel 2000 SR-1)

Topic

New Reply

Hello,

Is there an easy way to get the full description of the file type from just the three letter extension? I know that windows stores this information, I need to access it in order to present to the user of the spreadsheet.

Thanks,

Reply | Quote

Replies

Feel free to play with the attached.

Reply | Quote

Feel free to play with the attached.

Reply | Quote

If scripting is allowed on your user’s systems, the following code will read the description from the registry:

Function GetType(Extension As String) As String
Dim oShell As Object
Dim strExt As String
Dim strKey As String

On Error GoTo ErrHandler

Set oShell = CreateObject(“WScript.Shell”)
strExt = Extension
If Not (Left(strExt, 1)) = “.” Then
strExt = “.” & strExt
End If
strKey = oShell.RegRead(“HKEY_CLASSES_ROOT” & strExt & “”)
GetType = oShell.RegRead(“HKEY_CLASSES_ROOT” & strKey & “”)

ErrHandler:
Set oShell = Nothing
End Function

Examples:
GetType(“doc”) or GetType(“.doc”) will return “Microsoft Word Document”
GetType(“dok”) will return a blank string, since .dok is not a registered file type.

(My code is a shameless ripoff from post 279025 by R2)

Reply | Quote

Thank you for your help. This is exactly what I was looking for.

Regards,

Reply | Quote

Thank you for your help. This is exactly what I was looking for.

Regards,

Reply | Quote

If scripting is allowed on your user’s systems, the following code will read the description from the registry:

Function GetType(Extension As String) As String
Dim oShell As Object
Dim strExt As String
Dim strKey As String

On Error GoTo ErrHandler

Set oShell = CreateObject(“WScript.Shell”)
strExt = Extension
If Not (Left(strExt, 1)) = “.” Then
strExt = “.” & strExt
End If
strKey = oShell.RegRead(“HKEY_CLASSES_ROOT” & strExt & “”)
GetType = oShell.RegRead(“HKEY_CLASSES_ROOT” & strKey & “”)

ErrHandler:
Set oShell = Nothing
End Function

Examples:
GetType(“doc”) or GetType(“.doc”) will return “Microsoft Word Document”
GetType(“dok”) will return a blank string, since .dok is not a registered file type.

(My code is a shameless ripoff from post 279025 by R2)

Reply | Quote