movendo arquivo

[marvazoler 0]

Olá galera beleza?

 

Estive procurando na net o meu caso, mas só tinha para remover arquivos da pasta ou seja esvaziar da pasta.

 

O meu caso é mover arquivos de um pasta para outra.

 

Exemplo:

 

Arqvuios da Pasta A para pasta B

 

Como eu faço isso é delphi?

 

Desde já agradeço!!

[Fabriciocbj 0]

//Você pode Utilizar está função que criei.

 

 

Procedure FileCopy( Const sourcefilename, targetfilename: String );

Var

S, T: TFileStream;

Begin

S := TFileStream.Create( sourcefilename, fmOpenRead );

try

T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate );

try

T.CopyFrom(S, S.Size ) ;

finally

T.Free;

end;

finally

S.Free;

end;

End;

 

 

//By Fabriciocbj

[Raficcha 1]

Para mover arquivos basta fazer isto

 

//copia o arquivo original para o novo arquivo
CopyFile(Arquivo_Origem, Arquivo_Destino, false);
//deleta o arquivo original
DeleteFile(Arquivo_Origem);

[brsamn 0]

Para mover eu criei uma procedure aqui rapidinho, ela não copia o arquivo ela recorta e se o arquivo já existir na pasta destino não acontece nada.

 

prodedure MoverArquivo(Origem, Destino,Arquivo: String);
var
  o, d: PAnsiChar;
begin
  o:= PAnsiChar(Origem + '\' + Arquivo);
  d:= PAnsiChar(Destino + '\' + Arquivo);
  MoveFile(o,d);
end;

Exemplo de uso:

 

MoverArquivo('C:','C:\Pasta','Teste.txt');