Finding file types in vb.net

Finding file types in vb.net Findingfiletypesinvb.net Finding file types in vb.net [VB.NET] Avi T /PreviewSnippet.aspx?SnippetID=73a1839d-c9b3-4061-92a9-8679c57ab898 SurroundsWith

 _
Private Structure SHFILEINFO
Public hIcon As Int32
Public iIcon As Int32
Public dwAttributes As Int32
 _
Public szDisplayName As String
 _
Public szTypeName As String
End Structure

Private Const SHGFI_TYPENAME As Int32 = &H400

#Region " Vom Windows Form Designer generierter Code "
[...]
#End Region

Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles MyBase.Load
Dim x As SHFILEINFO
SHGetFileInfo("C:\test_tl\ausarb.tex", 0, x, Len(x), SHGFI_TYPENAME)
MsgBox(x.szTypeName)
End Sub
End Class
]]>