Fórum Listar Listar diretórios do servidor FTP no Delphi #466257

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  I: Integer;
  PastaExistente: Boolean;
begin
  //Setando os dados do Servidor FTP...
  FTP.Host    := 'ENDERECO DO HOST FTP';
  FTP.Username:= 'USERNAME FTP';
  FTP.Password:= 'PASSWORD FTP';

  Try
  //Apaga os Dados que tem em TreeView
  TreeView1.Items.Clear;

  //Realiza a Conexao com FTP...
  FTP.Connect;

  //Verifica se foi conectado com sucesso
  if FTP.Connected then begin
      //Lista o arquivos e pastas do home do FTP
      FTP.List;

      //LOOP para jogar o nome dos arquivos e pastas no TREEVIEW...
      for I := 0 to FTP.DirectoryListing.Count-1 do begin
       TreeView1.Items.Add(nil,FTP.DirectoryListing.Items[i].FileName);
      end;

      //LOOP para verificar se a pasta existe...
     try
      for I := 0 to FTP.DirectoryListing.Count-1 do begin
       PastaExistente:= False;
        //Verifica se a pasta Existe...
       if FTP.DirectoryListing.Items[i].FileName = 'MINHA PASTA' then begin
         ShowMessage('File exists');
         PastaExistente:= True;
         Exit;
       end
      end;
     finally
       //Caso a pasta nao existir ela eh criada
       if not PastaExistente then
        FTP.MakeDir('MINHA PASTA');
     end;
  end;
  Finally
    FTP.DisconnectNotifyPeer;
  End;
end;