1

Uso o Delphi e o Lazarus para criar minhas aplicações, o que devo fazer para verificar a inexistência de um diretório contido em um Servidor FTP?

Por exemplo, quando vai checar a inexistência de um arquivo local, se usam os comandos:

(if not DirectoryExists('C:\Teste') then)

Como fazer o mesmo em um servidor FTP?

1

2 Respostas 2

1

Se você usar Indy (veja em www.indyproject.org/Sockets/index.EN.aspx), nessa biblioteca tem um componente chamado TIdFTP que tem o método List() e a propriedade DirectoryListing. Execute List() e depois processe os resultados em DirectoryListing para verificar quais arquivos e diretórios estão presentes no servidor.

0

Como disse o colega acima Aguena, você pode usar a procedure List do componente TIdFTP

  var Lista := TStringList.Create;
  IdFTP.List(Lista, specified, details);
  for var I := 0 to Lista.Count-1 do
  begin
    if FileExists(specified) then // Aqui verifica se Existe
    begin
      // DoSomething
    end;
  end;

Usando Variável inline, usando Delphi 10.3

Você deve fazer log-in para responder a esta pergunta.

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