-1

Estou à algum tempo tentando fazer com que minha aplicação feita no Delphi 2010 remova um diretório em um servidor FTP, utilizei o TIdFTP para tal tarefa com o comando "RemoveDir", mas o processo falha, pois segundo a aplicação o diretório não está vazio. O que posso fazer para solucionar meu problema?

1 Resposta 1

1

Até onde sei, o Indy não possui um método "pronto" para o que deseja. Você terá que criar um método recursivo para apagar todos arquivos e subdiretórios antes de remover o diretório raiz. Veja este exemplo abaixo adaptado de um código obtido no site progtown.com :

procedure FTPRemoveDir(Dir: string);
var
  I: Integer;
  List: TStringList;
begin
  List := TStringList.Create;
  try
    FTP.ChangeDir(Dir);
    FTP.List(List, '', false);
    for i := 0 to List.Count - 1 do
    begin
      if FTP.Size(List[I]) = -1 then
        DelFTPDir(List[I])
      else
        FTP.Delete(List[I]);
    end;
    FTP.ChangeDirUp;
    FTP.RemoveDir(Dir);
  finally
    List.Free;
  end;
end;

Espero ter ajudado! Abraço!

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .