Alle Dateinamen von txt-Dateien auslesen

Hallöchen,
wie kann ich aus einem Verzeichnis, mit den unterschiedlichsten Dateien, die Dateinamen auslesen und ausgeben lassen, die Testdateien sind?

Beispiel:
Im Verzeichnis C:\Wissenswertes liegen 150 Dateien.
Im meinem VB-Programm brauche ich nur die Dateien mit der Endung .txt

Am Ende der Suchschleife sollen dann beispielsweise die Dateien
sql.txt
Mathe.txt
Sinnvoll.txt

ermittelt werden

Gruß

Sina

Hallo Sina!

Jetzt weiß ich nicht, ob dir mein Tipp überhaupt hilft, aber im MS-DOS wäre das möglich mit dem Befehl

dir c:\directory*.txt /b > zieldatei.txt

Die Datei zieldatei.txt beinhaltet eine Liste der in \directory\ vorkommenden *.txt-Dateien.
Wenn du zwischen „/b“ und „>“ noch ein „| sort“ einfügst, dann bekommst du die Auflistung alphabetisch.

Mit vielen Grüßen
—> Mayo

Hi Sina !

Versuch die „DIR“ Funktion unter VB! Geht am schnellsten und vor allem Du brauchst kein Objekt (FileSystemObject) !!!

z.B.:

Dim strFile as string

strFile = Dir(„c:\temp*.txt“, vbNormal)
do Until strFile = „“
Msgbox strFile
strFile = Dir
loop

Ciao
Mario

Nimm die File-ListBox
Am komfortabelsten löst Du IMHO das Problem mit der Filelistbox, evebtuell zusammen mit Drive- und Dir-Listbox. Mit deren Hilfe kannst Du einen Filerequester bauen, dem Du als Filter-Element „*.txt“ mitgibst, (filelistbox1.pattern="*.txt".

lG

Wolfgang