1

A pasta do ftp é existente, eu verifiquei manualmente e mesmo assim ocorre este erro.

Pasta no ftp:

inserir a descrição da imagem aqui

Então, segue o código:

with IdFtp2 do
  begin
      Host := edtServFTP2.Text;
      Port := StrToInt(edtPorta2.Text);
      ReadTimeout := 0;
      Username := edtUser2.Text;
      Password := Lb3DES1.DecryptString(edtSenha2.Text);
      Passive := true;

      if Connected = false then
        Connect;

      ChangeDir('/RAMONRUAN/'); // a pasta onde vc

            //quer largar os arquivos

    if( ListBox1.Items.Count > 0 ) then//and (erro2 = '')then
    begin
      i := 0;
      while not (i = ListBox1.Items.Count) do
      begin
        try
          Put(ListBox1.Items[i]);
        except
          on e: Exception do ShowMessage('Não colocou o arquvio: '
            +ListBox1.Items[i]+' erro:'+e.Message);
        end;
        inc(i);
      end;
    end;

    IdFTP2.Disconnect;
  end;

O que estou fazendo de errado?

8
  • Em qual linha aponta o erro? Commented 11/02/2015 às 12:54
  • "ChangeDir('/RAMONRUAN/')"; somente ai, e como falei em cima, existe esse diretório.
    – Ramon Ruan
    Commented 11/02/2015 às 13:01
  • Exatamente, da esse erro "Failed to change directoy", há possibilidade de ser o Indy?
    – Ramon Ruan
    Commented 11/02/2015 às 13:06
  • @QMechanic73, eu não utilizo esta função, em que momento eu poderia utilizá-la, ou ela é feita a partir do momento que eu utilizo o ChangeDir?
    – Ramon Ruan
    Commented 11/02/2015 às 13:13
  • 1
    @RamonRuan Acho que não. Será que você tem permissões de acesso a ele? Veja se esse diretório aparece ao listar: IdFTP1.List(ListBox1.Items,'',false);
    – stderr
    Commented 11/02/2015 às 13:29

1 Resposta 1

2

Sei que é antigo e resolvido, mas no meu exemplo aqui eu não precisei utilizar as barras /. Somente o nome do diretório dentro do ChangeDir.

0

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 .