Zitat:

Das letzte Bild in einem Verzeichnis bekommst du, indem du den Index von File1 einfach auf den letzten setzt. Weil der erste Eintrag in einer FileBox den Index 0 hat, hat der letzte Eintrag logischerweise folgenden Index: File1.ListIndex = File1.ListCount - 1 Damit setzt du den letzten Eintrag aktiv. Wenn du nun das Bild anzeigen willst schreibst du wie Dieter einfach "Loadpicture", meins is weniger kompliziert (denk ich zumindest): Picture1.Picture = LoadPicture(File1.Path & "\" & File1.Filename) Damit wird die letzte JPEG im Ordner angezeigt. Willst du auch noch andere Bildertypen zulassen, z.B. PNG,GIF etc., dann schreibst du bei Pattern einfach diese Typen und als Aufzählungszeichen Kommas " , " oder Strichpunkte " ; " Mit einer von diesen Methoden der Aufzählungszeichen müsste es tun... Benutze aber keine Leerzeichen also nur: File1.Pattern = "*.jpg,*.png" oder File1.Pattern = "*.jpg;*.png" cu db1MWe