Цитата:
|
Сообщение от Alegun
Код:
var
i: integer;
dir: string;
begin
...
idFTP.Connect;
dir:= 'c:\';
for i := 0 to Memo1.Lines.Count-1 do
IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);
idFTP1.Disconnect;
end; |
Отлично! Спасибо.
Но как сделать отмену загрузки если такого файла нет в папке?