Wie kann ich in VB.NET 2003 den Dateityp einer Datei ermitteln, wie er im Explorer angezeigt wird?

Um in VB.NET 2003 den Dateityp so zu ermitteln, wie er im Windows Explorer unter „Typ“ angezeigt wird (z.B. „Textdokument“, „JPEG-Bild“), kannst du die Windows-API-Funktion `SHGetFileInfo` verwenden. Diese Funktion liefert dir die vom System registrierte Beschreibung des Dateityps.

Hier ein Beispiel, wie das in VB.NET 2003 funktioniert:

```vbnet
Imports System.Runtime.InteropServices

Public Class FileTypeHelper

Private Const SHGFI_TYPENAME As Integer = &H400

<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Auto)>
Private Structure SHFILEINFO
Public hIcon As IntPtr
Public iIcon As Integer
Public dwAttributes As Integer
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)>
Public szDisplayName As String
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)>
Public szTypeName As String
End Structure

<DllImport("shell32.dll", CharSet:=CharSet.Auto)>
Private Shared Function SHGetFileInfo( _
ByVal pszPath As String, _
ByVal dwFileAttributes As Integer, _
ByRef psfi As SHFILEINFO, _
ByVal cbFileInfo As Integer, _
ByVal uFlags As Integer) As IntPtr
End Function

Public Shared Function GetFileType(ByVal filePath As String) As String
Dim shinfo As New SHFILEINFO()
SHGetFileInfo(filePath, 0, shinfo, Marshal.SizeOf(shinfo), SHGFI_TYPENAME)
Return shinfo.szTypeName
End Function

End Class
```

**Verwendung:**

```vbnet
Dim typ As String = FileTypeHelper.GetFileType("C:\Pfad\zu\deiner\datei.txt")
MessageBox.Show(typ)
```

**Erklärung:**
- Die Funktion `GetFileType` gibt dir den Typnamen zurück, wie er im Explorer angezeigt wird.
- Das funktioniert für beliebige Dateien, solange sie eine bekannte Erweiterung haben.

**Hinweis:**
Diese Methode funktioniert unter allen Windows-Versionen, die von VB.NET 2003 unterstützt werden.

Weitere Infos zur API:
[Microsoft Doku zu SHGetFileInfo](https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shgetfileinfoa)