ftp удаление, копирование и переименование директории

[ikot]

Добрый вечер. Очень нужна ваша помощь. Как можно организовать удаление, копирование и переименование не пустой директории на ftp-сервере. Использую indy. Понимаю, что нужно использовать рекурсию. Даже нашел пару вариант как это реализовать, но не выходит - выскакивает ошибка "CWD" command not implemented.

Вот исходник клиента:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdFTP, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTPList;

type
TForm1 = class(TForm)
Button1: TButton;
FTP: TIdFTP;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure FTPConnected(Sender: TObject);
procedure Button2Click(Sender: TObject);
private

procedure DelFTPDir(Dir: String);

{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.DelFTPDir(Dir: String);
var DL: TStringList;
L,FTPDL:TStringList;
i: integer;
begin
Application.ProcessMessages;
if FTP.Connected then
begin
DL:=TStringList.Create;
L:=TStringList.Create;
FTPDL:=TStringList.Create;
FTP.ChangeDir(Dir);
FTP.List(DL);
for i:=0 to DL.Count-1 do
begin
FTPDL.Add(FTP.DirectoryListing[i].FileName);
if FTP.DirectoryListing[i].ItemType = ditDirectory then
L.Add('d') else
L.Add('f');
end;
for i:=DL.Count-1 downto 0 do
begin
if (L[i]='d') then
begin
if (FTPDL[i]<> '.') and
(FTPDL[i]<> '..') then
begin
DelFTPDir(FTPDL[i]);
end;
end
else
begin
FTP.Delete(FTPDL[i]);
end;
end;
FTP.ChangeDirUp;
FTP.RemoveDir(Dir);
FTPDL.Destroy;
DL.Destroy;
L.Destroy;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FTP.Connect;
end;

procedure TForm1.FTPConnected(Sender: TObject);
begin
caption:='con';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
DelFtpDir('\111');
end;

end.

[Квэнди]

Делайте паузу в цикле. Ошибка (Change Working Directory) срабатывает скорей всего из- за частой смены директории.

[ikot]

Сообщение от Квэнди

Делайте паузу в цикле. Ошибка (Change Working Directory) срабатывает скорей всего из- за частой смены директории.

Самое смешное это то, что внутри этой папки находится только один текстовый файл. Так что думаю проблема не в этом.

Я вот тут думаю, может код сервера не тот. Использую код сервера из demo от indy

[Квэнди]

Для информации.http://www.indyproject.org/docsite/h...ir@string.html
Попробуйте выполнять List перед changedir