[VB.Net] Get real filetype name from a file extension

Coder-san · 06-22-2011, 11:08 AM

Made this for a custom explorer I'm making.

Code:
Private Function GetFileType(ByVal FileName As String) As String
	GetFileType = ""
	Dim extensionName As String = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & FileName.Substring(FileName.LastIndexOf(".")), "", FileName.Substring(FileName.LastIndexOf(".")))
	GetFileType = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & extensionName, "", FileName.Substring(FileName.LastIndexOf(".")))
End Sub

Usage:

Code:
MsgBox(GetFileType("C:\file.txt"))

Output:

Code:
Text Document

I hope somebody finds it useful. Have a nice day. Smile

1234hotmaster · 06-22-2011, 01:14 PM

helpful for a file searcher i never even thought such thing was possible Biggrin

kevininstructor · 07-01-2011, 01:11 AM

(06-22-2011, 11:08 AM)Coder-san Wrote: Made this for a custom explorer I'm making.

Code:
Private Function GetFileType(ByVal FileName As String) As String GetFileType = "" Dim extensionName As String = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & FileName.Substring(FileName.LastIndexOf(".")), "", FileName.Substring(FileName.LastIndexOf("."))) GetFileType = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & extensionName, "", FileName.Substring(FileName.LastIndexOf("."))) End Sub

Usage:

Code:
MsgBox(GetFileType("C:\file.txt"))

Output:

Code:
Text Document

I hope somebody finds it useful. Have a nice day.

Nice! I made some changes so it will work with Option Strict On and shorten the code up a tag bit.

Code:
Public Function GetFileType(ByVal FileName As String) As String
        Dim Ext As String = IO.Path.GetExtension(FileName)
        Return My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\" & Ext, "", Ext).ToString, "", Ext).ToString
    End Function

Coder-san · 07-01-2011, 10:11 AM

Nice and long time no see, Kevin. Smile