Hallo Master-Joko,
Es geht mit der Procedure List ...
Zitat von
Indy Hilfe:
procedure List(ADest: TStrings; const ASpecifier: string; const ADetails: boolean);
Parameters
ADest: TStrings
List for files and directories in the current directory.
const ASpecifier: string = ''
File mask for the listing. Default value is ''.
const ADetails: boolean = true
Include file details. Default value is True.
bye
Claus
Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----