Code:
var sr: TSearchRec;
if FindFirst(dir+'*.mp3',0,sr) = 0 then // Alle MP3 Dateien aus Ordner
begin
repeat
Listbox.Items.Add(dir+sr.Name);
until FindNext(sr) <> 0;
end;
Mit diesem Code schreibe ich alle Dateien in eine Listbox.
FindFirst gibt die Erste Datei und mit FindNext hangelt man sich dann bis zum Ende durch...
Is zwar mehr Quelltext als der von ims aber ich denke er ist leichter zu verstehen und erfüllt auch
seinen Zweck!
FTP sollte meiner Meinung nach damit aber nicht gehen...
