Dateien in Verzeichnis auflisten

Hallo Evast,

hier ein leicht modifiziertes Beispiel:

Dim MyFileNames, iCount, MyPath
MyPath = "D:Test"
Call FileNameGet("ANY", "FileRead", MyPath, "TDM data (*.tdm),*.tdm", "d:testAll.lst", True, "Data selection")

MyFileNames = Split(FileDlgFileName,"|")
For iCount = 0 To Ubound(MyFileNames)
Call msgbox(MyFileNames(iCount))
Next

MyPath gibt den gewünschten Pfad vor.
Zurzeit muss man in der Tat noch die *.LST datei angeben. (In DIAdem 11 gibt es aber einen ergänzenden Befehl bei dem das dann nicht mehhr notwendig ist - FileDlgShow). Aber schon jetzt werden die ausgewählten Dateien in einem String gespeichert (FileDlgFileName).

Carpe DIAdem

Anzeige