Dateidatum per FTP auslesen

Ich möchte das Datum der Datei ‚index.htm‘ auf unserem Server per FTP (Indies 10) anzeigen, kriege aber immer diese Fehlermeldung:

„Im Projekt ist eine Exception der Klasse EListError aufgetreten. Meldung: ‚Listenindex überschreitet das Maximum (0)‘. …“

Was stimmt hier nicht? (Ansonsten klappt z.B. list, get und put ohne Probleme)

Code:
procedure TForm1.Button29Click(Sender: TObject);
var
LS: TStringList;
datum1: TDateTime;
begin
LS := TStringList.Create;
try
IdFTP1.username := username1;
IdFTP1.Password := password1;
IdFTP1.Host := hostname1;
IdFTP1.Connect;
if IdFTP1.Connected then
begin
IdFTP1.ChangeDir(’/abc’);
IdFTP1.List(LS,‚index.htm‘, True);
datum1 := idFTP1.DirectoryListing.Items[0].ModifiedDate;

hi,
hast du mal nen breakpoint gesetzt und geguckt was zum fehlerzeitpunkt in LS drinsteht?

mfg - jens

hi,
hast du mal nen breakpoint gesetzt und geguckt was zum
fehlerzeitpunkt in LS drinsteht?

mfg - jens

Ich habe mit mal die Werte mit showmessage so ausgeben lassen:

Idftp1.list(listbox4.items, '\*.\*', true);  
IdFTP1.List(LS,'index.htm', True);  
 ShowMessage('LS.strings[0]: ' + LS.Strings[0]);   
 \>\>\>Ausgabe: '9660 Feb 10 13:03 index.htm'  
 showmessage('IdFTP1.DirectoryListing.count: '+ IntToStr(IdFTP1.DirectoryListing.count));  
 \>\>\>Ausgabe: '0'  
datum1 := IdFTP1.DirectoryListing.Items[0].ModifiedDate;  
 ShowMessage('Datum: ' + DateTimeToStr(datum1));  
 \>\>\>Ausgabe: 'Im Projekt ist eine Exception der Klasse EListError aufgetreten. Meldung: "Listenindex überschreitet das Maximum (0)". ...'  

Mit freundlichem Gruß

jeppes

„Im Projekt ist eine Exception der Klasse EListError
aufgetreten. Meldung: ‚Listenindex überschreitet das Maximum
(0)‘. …“

datum1 := idFTP1.DirectoryListing.Items[0].ModifiedDate;

Wie schon gesagt wurde, du kannst auf dein Item net zugreifen, weil die Liste leer is… Wenn das mit der DirectoryList aber net funktioniert, könntest du immernoch den Inhalt von LS auswerten und das Datum rausfiltern… Aber guck erst nochmal in die Onlinehilfe von DirectoryList, da wirst du den Fehler sicher finden (welcher sicher in der Verwendung dieser Funktion liegt)…

mfg - jens

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]