Listowanie katalogu FTP przez komponent ICS

0

Witajcie.
Moze mi ktos napisac jak przy wykorzystaniu komponentu ICS FTPClient wylistowac pliki w katalogu FTP i je wszystkie pobrac ?
Pozdrawiam.

0

i oczywiście nie wpadłeś na tak genialny pomysł jak pooglądanie dem, które są razem z paczką ...

0

Zdziebko zagmatwane sa te dema.
Co do listowania to juz sobie poradzilem.
Mam natomiast inny problem z rozwiazaniem znalezionym gdzies w sieci, ktore jest ponizej.

procedure TForm1.SpeedButton2Click(Sender: TObject);
var MyDirList: TStringList;
    TempFileName: String;
    i: Integer;
begin
   TempFileName := 'D:\TempDirList.txt';
   MyDirList := TStringList.Create;
   FTPClient1.LocalFileName := TempFileName;
   FTPClient1.HostDirName:='/REKLAMY/';
   FTPClient1.Cwd;
   FTPClient1.ls;
   MyDirList.LoadFromFile(TempFileName);
   for i := 0 to MyDirList.Count - 1 do
   begin
    Memo1.Lines.Add(MyDirList[i]);
    FTPClient1.HostFileName:=MyDirList[i];
    FTPClient1.LocalFileName:='D:\Tymczasowy\REKLAMY\'+MyDirList[i];
    FTPClient1.RestGet;
    FTPClient1.Dele;
   end;

   FTPClient1.HostDirName:='/AKTUALIZACJE/';
   FTPClient1.Cwd;
   FTPClient1.ls;
   MyDirList.LoadFromFile(TempFileName);
   for i := 0 to MyDirList.Count - 1 do
   begin
    Memo1.Lines.Add(MyDirList[i]);
    FTPClient1.HostFileName:=MyDirList[i];
    FTPClient1.LocalFileName:='D:\Tymczasowy\REKLAMY\'+MyDirList[i];
    FTPClient1.RestGet;
    FTPClient1.Dele;
   end;
   MyDirList.Free;
end;

Jak chcesz pomoc to napisz dlaczego przy przechodzeniu do katalogu "/AKTUALIZACJE/" w momencie podstawiania nazwy pliku do sciagniecia do HostFileName w pliku TempDirList.txt zapisywane sa infromacje z listowania pierwszego katalogu czyli "/REKLAMY/" zamiast z listowania katalogu "/AKTUALIZACJE/".
Pozdrawiam.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0