Copiar arquivos listados em um lisbox

[masterbsb 2]

alguém conhece uma maneira de copiar para determinada pasta do sistema arquivos que estão listados em um listbox? desde já agradeçoa a todos

[Roberto Fagundes 40]

Sim, já fiz muito isso, mas como você esta listando o arquivo no listbox?

Na vdd eu prefiro fazer com listView com colunas ocultas...

 

Mas poste uma parte do seu código

[masterbsb 2]

Olá amigo, então, tem o listbox, mais pode ser com um listView também, eu tenho um botão inserir, onde o usuário irá inserir os arquivos:

 

procedure TFrmImportar.btInserirClick(Sender: TObject);
begin
   if opendialog.Execute then
    begin
      ListBox1.Items.Add(opendialog.FileName);
      btImportar.Enabled := true;
    end
   else
     abort;
end;

com isso listo no listbox os arquivos adcionados, gostaria agora de copiar os arquivos listados para uma outra pasta, não sem se estou sendo claro, rsrs! parece ser simples só que para mim que to iniciando é um bicho de sete cabeças, se puder ajudar, ficarei muito grato!

[Roberto Fagundes 40]

Na verdade da pra fazer da forma que você está fazendo mesmo...

Só adicionar o botão copiar e adicionar este código:

 

procedure TFormConfigurarIngresso.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  DiretorioDestino := 'Aqui você coloca seu diretório de destino';
  for i := 0 To ListBox1.Items.Count - 1 do
    CopyFile(PChar(ListBox1.Items[i]), PChar(DiretorioDestino + '\' + ExtractFileName(ListBox1.Items[i])), 0);
end;

[masterbsb 2]

Grande Roberto Fagundes, muito obrigado pela ajuda, deu muito certo para mim! Valeu!

 

Só mais uma se não for incomodo, é possivel verificar se a operação deu certo? senão exibir uma mensagem de erro?

[Roberto Fagundes 40]

Tente desta forma:

 

procedure TFormConfigurarIngresso.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  DiretorioDestino := 'Aqui você coloca seu diretório de destino';
  for i := 0 To ListBox1.Items.Count - 1 do
    begin
      try
        CopyFile(PChar(ListBox1.Items[i]), PChar(DiretorioDestino + '\' + ExtractFileName(
ListBox1.Items[i])), 0);
        ShowMessage('O arquivo "' + ListBox1.Items[i] + '" foi copiado com sucesso');
      except
        ShowMessage('O arquivo "' + ListBox1.Items[i] + '" não foi copiado');
      end;
    end;
end;

[masterbsb 2]

Roberto Fagundes, obrigado de novo! Felicidades! Abraços

[Roberto Fagundes 40]

Dinada estamos aqui para ajudar...

Só peço que marque como resolvido o tópico que lhe ajudou, para me ajudar também... kkkk