Vorhandene TxT Dateien in Listbox

[TheLuCKer]

Hallo Leute,

ich habe eine Frage an euch: Ich möchte z.B., dass sich meine Listbox bei jedem Programmstart mit allen vorhandenen txt Dateien im Verzeichnis c:\Adressbuch\ füllt. Dass heißt so ungefähr:

Private Sub Fom_Load()
List1.Additem "c:\Addressbuch\" 'und dann weiß ich nicht mehr weiter, dass er alle vorhandenen Dateien in die Listbox reinschreibt. Also bitte helft mir. Danke im Vorraus.

Jonny

 

[Shakie]

Die Dir-Funktion liefert dir Datei- oder Ordnernamen, je nach dem, wie die Funktion eingestellt wurde:

Private Sub Form_Load()
    Dir ("D:\Texte\*.txt")
    Dim strDatei As String
    strDatei = Dir
    While strDatei <> ""
        Me.List1.AddItem strDatei
        strDatei = Dir()
    Wend
End Sub