Wie speichere ich mit VB.NET 2003 alle GIFs eines Ordners inklusive Unterordner als PNG?

Um in VB.NET 2003 alle GIF-Dateien eines Ordners (inklusive Unterordner) als PNG zu speichern, kannst du die folgenden Schritte umsetzen:

1. **Verwende die `Directory.GetFiles`-Methode** mit dem Parameter `SearchOption.AllDirectories`, um alle GIF-Dateien zu finden.
2. **Lade jede GIF-Datei als Bild** mit der `System.Drawing.Image`-Klasse.
3. **Speichere das Bild als PNG** mit der `Save`-Methode.

Hier ein Beispielcode:

```vbnet
Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging

Sub ConvertAllGifsToPng(ByVal rootFolder As String)
' Alle GIF-Dateien im Verzeichnis und Unterverzeichnissen finden
Dim gifFiles As String() = Directory.GetFiles(rootFolder, "*.gif", SearchOption.AllDirectories)

For Each gifFile As String In gifFiles
Try
' Bild laden
Using img As Image = Image.FromFile(gifFile)
' Ziel-Dateiname (gleicher Name, aber .png)
Dim pngFile As String = Path.ChangeExtension(gifFile, ".png")
' Bild als PNG speichern
img.Save(pngFile, ImageFormat.Png)
End Using
Catch ex As Exception
' Fehlerbehandlung (optional: Fehler loggen)
Console.WriteLine("Fehler bei Datei: " & gifFile & " - " & ex.Message)
End Try
Next
End Sub
```

**Hinweise:**
- Der Code benötigt einen Verweis auf `System.Drawing`.
- Die Methode `SearchOption.AllDirectories` ist ab .NET Framework 2.0 verfügbar. In VB.NET 2003 (also .NET 1.1) gibt es diese Option noch nicht. Du musst daher die Unterordner rekursiv selbst durchsuchen:

```vbnet
Function GetAllGifFiles(ByVal folder As String) As ArrayList
Dim files As New ArrayList()
Try
files.AddRange(Directory.GetFiles(folder, "*.gif"))
For Each subDir As String In Directory.GetDirectories(folder)
files.AddRange(GetAllGifFiles(subDir))
Next
Catch ex As Exception
' Fehlerbehandlung
End Try
Return files
End Function
```

Und dann im Hauptcode:

```vbnet
Dim gifFiles As ArrayList = GetAllGifFiles("C:\DeinOrdner")
For Each gifFile As String In gifFiles
' ... wie oben ...
Next
```

**Zusammengefasst:**
- Rekursiv alle GIFs suchen
- Mit `Image.FromFile` laden
- Mit `img.Save(..., ImageFormat.Png)` speichern

Weitere Infos zu [System.Drawing.Image.Save](https://learn.microsoft.com/de-de/dotnet/api/system.drawing.image.save) und [Directory.GetFiles](https://learn.microsoft.com/de-de/dotnet/api/system.io.directory.getfiles).