Como mover Arquivos ?

Delphi

20/09/2005

Olá galera beleza ?

Tenho que MOVER todos arquivos de uma determinada extensão de um diretórios para outro

Tipo => move *.Extensão c:\backup

Se alguem puder me ajudar agradeço !!!!

um abraço !!!!!


Fabiano Góes

Fabiano Góes

Curtidas 0

Melhor post

Adriano Santos

Adriano Santos

20/09/2005

function CopiaMove(Operacao: Integer; Origem, Destino: String): Boolean;
var
  Dados: TSHFileOpStruct;
begin
  with Dados do
  begin
     Wnd := 0;
     case Operacao of
       0: wFunc := FO_COPY;
       1: wFunc := FO_MOVE;
     end;
     pFrom := PChar(Origem + #0);
     pTo := PChar(Destino  + 0);
     fFlags := FOF_ALLOWUNDO + FOF_RENAMEONCOLLISION + FOF_FILESONLY + FOF_NOCONFIRMATION;
  end;
  if SHFileOperation(Dados) = 0 then
    Result := True
  else
  begin
    Result := False;
    MessageDlg(´Não foi possível copiar o arquivo:´ + 13 +
      origem + Arquivo + ´ para a pasta ´ + 13 +
      destino, mterror, [mbok], 0);
  end;

end;




   CopiaMove(1,´c:\temp\arquivo.extensao´,´c:\backup\arquivo.extensao´);



GOSTEI 1

Mais Respostas

Fabiano Góes

Fabiano Góes

20/09/2005

Adriano assim eu tenho que especificar o nome do arquivo né ?

só que são varios arquivos com varios nomes só que com a mesma extensão.
preciso mover todos de uma vez sem especifar nome apenas a extensão

move *.R01 c:\backup


mesmo assim obrigado pela atenção !!


GOSTEI 0
Fabiano Góes

Fabiano Góes

20/09/2005

Ops.....

Adriano me desculpe !!!!

esta correta a função, esta movendo todos os arquivos 

CopiaMove(1,´c:\Data\*.R01´,´c:\backup\´);


Valeu cara !!!!!!


GOSTEI 0
Adriano Santos

Adriano Santos

20/09/2005

Sem problemas cara.


GOSTEI 0
POSTAR