Wow, danke. Das hat echt geholfen. Naja, ich kann leider nioch nicht so gut programmieren und verstehe nich Code nicht komplett aber ich hab hn jetzt erstmal eingebaut und es funktioniert wunderbar. Eine Frage hätte ich allerdings noch... Ich bekomme immer eine Zahl ausgegeben neben dem Dateinamen. Ich nehme mal an, das ist das Datum. Allerdings kann ich aus 2820 kein Datum lesen. Zumindest nicht den 08.08.2009, so wie es bei mir sein müsste. Was hat es damit auf sich?
// Btw: Ich hab grad probiert in deinen Code einzubauen, dass beim Aufruf der Funktion ne ShowMessage kommt, falls auf dem FTP keine dateien liegen, klappt aber irgendwie nicht... Kannste mir da auch nochma unter die Arme greifen? Hab jetzt:
Code:if GetFTPFileList(editFTPHost.Text, editFTPUsername.Text, editFTPPassword.Text, editFTPDir.Text, A) then
for I := Low(A) to High(A) do
ShowMessage(A[I].FileName + ' ' + IntToStr(A[I].FileSize))
else
ShowMessage('Leer...');