VB6 Problem bei FileListBox.ListIndex = i

Computer: Software & Programmierung Visual Basic
#1

Hallo Gemeinde,
kann mich bitte nochmal jemand vom Schlauch schubsen?!

Ich möchte alle in einer FileListBox (MultiSelect = Erweitert) markierte Dateien in eine Variable packen.
Ich habe dazu folgenden Code geschrieben:

Dim DateienString as String
Dim i As Integer

For i = 0 To FileListBox1.ListCount - 1
 If FileListBox1.Selected(i) = True Then
 FileListBox1.ListIndex = i 
 DateienString = DateienString & FileListBox1.FileName & Chr(10)
 End If
Next i

Wenn eine Datei markiert wurde, klappt’s. Bei zwei oder mehr markierten taucht in der Zeile .ListIndex = i (i = Index der ersten markierten Datei) der Fehler „Ungültiger Index für Eigenschaftenfeld“ auf.

Irgendwie verstehe ich das nicht. Kann mir vielleicht jemand helfen?
Vielen Dank schonmal, Gruß Simon

#2

Hallo,

was Du suchst, sieht so ais:

Dim DateienString as String
Dim i As Integer

For i = 0 To FileListBox1.ListCount - 1
 If FileListBox1.Selected(i) = True Then
 DateienString = DateienString & FileListBox1.List(i) & Chr(10)
 End If
Next i

Gruß, Rainer

#3

Hallo Rainer,
Super, vielen Dank!! Genau das brauchte ich. Ich hab zwar .Filename(i) probiert, das ich wusste nicht, dass es mit .List geht.
Danke und Gruß Simon

was Du suchst, sieht so ais:

Dim DateienString as String
Dim i As Integer

For i = 0 To FileListBox1.ListCount - 1
If FileListBox1.Selected(i) = True Then
DateienString = DateienString & FileListBox1.List(i)
& Chr(10)
End If
Next i