Copiar arquivo de uma pasta para outra

15/07/2008

22

Como faço para copiar um ou vários arquivos de uma pasta para outra via código?

vlw!!!


Responder

Posts

15/07/2008

Leufmt

CopyFile(PChar(Origem), PChar(Destino), true)

Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false


Responder

15/07/2008

Wdrocha

Faça o seguinte....

Procedure TForm1.Button1Click(Sender: TObject);
Var Arquivo : TStringList;

Begin

Arquivo := TStringList.Create();

Arquivo.LoadFromFile(´C:\Program Files\Borland\Delphi7\Projects\TecladoVirtual\Configuracao\Config.Txt´); // Carrega o arquivo de origem

Arquivo.SaveToFile (´C:\Config.txt´); //salva o arquivo em outro lugar, como o mesmo nome, mas não necessária precisar ser com o mesmo nome.

End;

Espero ter ajudado.

Vlw..


Williame Rocha


Responder

15/07/2008

Psycho

copyfile(´C:\Local´,´C:\destino´,true); <- Simple :shock:
------------------------------------------

Aproveitando o enbalo de copiar,
Como faço para pegar o ambiente usando
GetEnvironmentVariable e copiar somente
as pastas daqueles diretorios para outro
diretorios daquele ambiente

Em vez de ficar escrevendo ´C:\local do arquivo´
Escrever somente (´\local´) (´\destino´) ?

Até mais


Responder

16/07/2008

Rodc

Arquivo.LoadFromFile(´C:\Program Files\Borland\Delphi7\Projects\TecladoVirtual\Configuracao\Config.Txt´); // Carrega o arquivo de origem Arquivo.SaveToFile (´C:\Config.txt´); //salva o arquivo em outro lugar, como o mesmo nome, mas não necessária precisar ser com o mesmo nome.
Péssima idéia, processamento desnecessário.

Caso queira mover o arquivo (removendo-o da origem) tem também a função MoveFile().

Como faço para pegar o ambiente usando GetEnvironmentVariable...
[url]http://forum.devmedia.com.br/viewtopic.php?t=90055[/url]
Para copiar todas as pastas você terá de percorrer pasta por pasta usando as funções FindFirstFile e FindNextFile.


Responder