Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

letztes Bild im Ordner ermitteln
Autor: Nici
Datum: 26.08.03 11:51
Hallo, ich versuche immernoch vergeblich einen Code zu schreiben welches das letze Bild in einem Ordner ermittelt und es mir in einer Picturebox anzeigt. Hier mein Code: Private Sub Command1_Click() Dim File1 As String Dim Picture1 As String File1.ListIndex = File1.ListCount - 1 Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName) File1.Pattern = "*.jpg,*.png" With File1 .Path = "c:\ordner" .Pattern = "*.jpg" .Visible = False .Refresh If .ListCount > 0 Then End If End With End Sub Private Sub Form_Load() End Sub Kann mir da bitte jemand helfen ??

letztes Bild im Ordner ermitteln	544	Nici	26.08.03 11:51
Re: letztes Bild im Ordner ermitteln	302	DB1MWE	26.08.03 13:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen