Привет всем :-)
Функция отправки файла на FTP
Код:
procedure ftp_go(f:string);
var IDFTP: TIDFTP;
begin
idftp:=TIDFtp.create(IDFTP);
idftp.host:='ХХХороший_Программер.tj';
idftp.Username:='prof';
idftp.password:='ты_нашол_мой_пароль_XD';
idftp.Connect;
if idftp.Connected then
begin
idftp.ChangeDir('/WWW/public_xxx/');
sleep(77);
idftp.Put(f,extractfilename(f));
end;
sleep(777);
idftp.Disconnect;
finally
idftp.free;
end;
end;
например на папке C:\XXX_TEMP\ хранятся не только файлы но и подпапки (внутри подпапок тоже есть файлы)...
и я хочу всех их закачать на FTP...
надо только использовать IDFTP.MakeDir для каждую папку(подпапку) или можно как то с другими хорошими способами закачать папку с подпапками???
Подскажите пожалуйста
