Gibt es fertigen Code für einen selbstgebauten FileDialog in VB.NET 2003 und wie lautet dieser?

Für VB.NET 2003 gibt es keinen offiziellen, fertigen Code für einen komplett selbstgebauten FileDialog, da normalerweise der Standarddialog (`OpenFileDialog`, `SaveFileDialog`) verwendet wird. Möchtest du jedoch einen eigenen, einfachen FileDialog bauen, kannst du ein eigenes Formular mit Steuerelementen wie `ListBox`, `TextBox` und `Button` verwenden.

Hier ein sehr einfaches Beispiel für einen selbstgebauten Open-File-Dialog in VB.NET 2003:

**1. Neues Formular erstellen (z.B. "MyFileDialog")**

Füge folgende Steuerelemente hinzu:
- `ListBox` (Name: `lstFiles`)
- `TextBox` (Name: `txtPath`)
- `Button` (Name: `btnOpen`, Text: "Öffnen")
- `Button` (Name: `btnCancel`, Text: "Abbrechen")

**2. Code für das Formular:**

```vbnet
Imports System.IO

Public Class MyFileDialog
Public SelectedFile As String = ""

Private Sub MyFileDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtPath.Text = "C:\"
LoadFiles(txtPath.Text)
End Sub

Private Sub LoadFiles(ByVal path As String)
Try
lstFiles.Items.Clear()
For Each dir As String In Directory.GetDirectories(path)
lstFiles.Items.Add("<DIR> " & Path.GetFileName(dir))
Next
For Each file As String In Directory.GetFiles(path)
lstFiles.Items.Add(Path.GetFileName(file))
Next
Catch ex As Exception
MessageBox.Show("Fehler: " & ex.Message)
End Try
End Sub

Private Sub lstFiles_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstFiles.DoubleClick
If lstFiles.SelectedItem Is Nothing Then Exit Sub
Dim item As String = lstFiles.SelectedItem.ToString()
If item.StartsWith("<DIR> ") Then
txtPath.Text = Path.Combine(txtPath.Text, item.Substring(6))
LoadFiles(txtPath.Text)
Else
SelectedFile = Path.Combine(txtPath.Text, item)
Me.DialogResult = DialogResult.OK
Me.Close()
End If
End Sub

Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
If lstFiles.SelectedItem Is Nothing Then Exit Sub
Dim item As String = lstFiles.SelectedItem.ToString()
If Not item.StartsWith("<DIR> ") Then
SelectedFile = Path.Combine(txtPath.Text, item)
Me.DialogResult = DialogResult.OK
Me.Close()
End If
End Sub

Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
Me.DialogResult = DialogResult.Cancel
Me.Close()
End Sub
End Class
```

**3. Verwendung im Hauptformular:**

```vbnet
Dim dlg As New MyFileDialog()
If dlg.ShowDialog() = DialogResult.OK Then
MessageBox.Show("Ausgewählte Datei: " & dlg.SelectedFile)
End If
```

**Hinweis:**
Dies ist ein sehr einfaches Beispiel und bietet keine Filter, keine Navigation nach oben, keine Dateityp-Filter usw. Für produktive Anwendungen empfiehlt sich die Nutzung des Standarddialogs oder eine umfangreichere Eigenentwicklung.

Weitere Informationen zu VB.NET findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/dotnet/visual-basic/).