Добрый я сегодня. Вот набросал, но не осуждайте, если что:
| Код |
procedure SendFiles(Dir:string; FtpDir:string);
var
SearchRec:TSearchRec;
FindResult:integer;
begin
if FtpDir <> ''
then
begin
{
Надо создать директорью на Ftp
Ftp-сервер/ + FtpDir
}
end;
FindResult:=FindFirst(Dir + '*.*', faAnyFile + faHidden + faSysFile + faReadOnly, SearchRec);
while FindResult = 0 do
begin
{
Делаем загрузку файла SearchRec.Name в
ftp-сервер/ + FtpDir
}
FindResult:=FindNext(SearchRec);
end;
FindClose(SearchRec);
FindResult:=FindFirst(Dir, faDirectory, SearchRec);
while FindResult = 0 do
begin
if not ((SearchRec.Name = '.') or (SearchRec.Name = '..'))
then
SendFiles(Dir + SearchRec + '\', FtpDir + SearchRec.Name + '/');
FindResult:=FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
|
| Код |
SendFiles('C:\FtpDir\', '');
|
Можно и модернизировать, просто я не знаком с технологией NFTP... |
