Fórum TreeView e Explorer!! #131651

  Olá Delphimaniaco !


  Eu faria da seguinte forma : utilizaria o componente ShellTreeView que se localiza na paleta "SAMPLES" que você pode indicar qual drive você deseja copiar os arquivos, segue a imagem do exemplo que eu fiz, onde temos dois ShellTreeView, o da parte superior do form representa a origem dos arquivos, e o segundo da parte inferior representa o destino que deseja enviar. Segue abaixo a imagem do projeto.

O código que está no evento onclick do botão "copiar"
=======================================
procedure TForm1.sbtnCopiarClick(Sender: TObject);
var
  Arquivo     : TSearchRec;
  I           : integer;
  End_Origem,
  End_Destino : string;
begin
  End_Origem  := ShlTrVw_Origem.SelectedFolder.PathName;
  End_Destino := ShlTrVw_Destino.SelectedFolder.PathName;

  I := FindFirst(End_Origem +'\*.*', faArchive, Arquivo);

  while I = 0 do begin
    if (Arquivo.Attr and faDirectory) <> faDirectory then begin
      if not CopyFile(PChar(End_Origem+ '\'+ Arquivo.Name), PChar(End_Destino+ '\'+ Arquivo.Name), true) then
        Application.MessageBox(PChar('Erro ao copiar ' + End_Origem + 'para o local de destino ' + End_Destino),
                               'Atenção',MB_ICONERROR);
    end;
    I := FindNext(Arquivo);
  end;
  Application.MessageBox('Copia efetuada com sucesso !','Copia de arquivo',MB_ICONINFORMATION);
end;



Espero ter ajudado. Abraço !

Eliel G. Martins