Цитата:
|
Сообщение от 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; |
Кажется понял.
Как тут можно использовать if FileExists(s) then ?
Поместить
Код:
for i := 0 to Memo1.Lines.Count-1 do
IdFTP1.Put(dir + Memo1.Lines[i], Memo1.Lines[i], true);
В then? А else будет остановка загрузки?