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