отправка папки на ftp

[W.i.d.g.e.t.1]

Нужны мозги))нужно залить целую папку на сервер, с ее содержимым и подпапками. как это можно воплотить? никаких компонент, а-ля тиайдифтп, а вот примерно так, только тут файл.

procedure upload(filename:pchar; ftpfilename:pchar);
const
port=21;
begin
 inet_open := internetopen('iexplore',INTERNET_OPEN_TYPE_DIRECT,nil,nil,0);
//Настройки коннекта( фтп, логин, пасс)
 conn_param := internetconnect(inet_open,'ftp.narod.ru',port,'log','pass',INTERNET_SERVICE_FTP,INTERNET_FLAG_PASSIVE,0);
sleep(100);
 ftpputfile(conn_param,filename,ftpfilename,FTP_TRANSFER_TYPE_UNKNOWN,0);
 internetclosehandle(conn_param);
 internetclosehandle(inet_open) ;
END;

[mihali4]

http://www.programmersforum.ru/showthread.php?t=43948

Поиском пользоваться не пробовали ?
А хотя бы внизу этой страницы посмотреть "Похожие темы" ?

[W.i.d.g.e.t.1]

А что,

Как создать папку на FTP через idFtp:TidFtp?

это одинаково с тем как ЕЕ ТУДА ЗАЛИТЬ с ПК? И не через какие не компоненты. Чем вопрос мой не так поставлен.
Мне нужно знать реально ли это вообще, или по аналогии, сначала создать папку на сервере , а потом пофайлово в нее все копировать? По другому никак?

[mihali4]

Это "одинаково" с тем, что сначала создается папка, а потом в нее закачиваются файлы, что вы уже умеете...