Rotina para copiar um arquivo
12/12/2003
0
estou precisando de uma rotina para copiar um arquivo que está em um compartilhamento da rede para outro compartilhamento.
Alguém saberia me dizer como posso fazer esta rotina ?
Obrigado.
Mascotepc
Posts
12/12/2003
Fabio.hc
Copiar arquivos
{ - Coloque um Button no Form;
- Altere o evento OnClick deste Button conforme abaixo: }
procedure TForm1.Button2Click(Sender: TObject); var Origem, Destino: string; begin Origem := ´c:\Origem\NomeArq.txt´; Destino := ´c:\Destino\NomeArq.txt´; if not CopyFile(PChar(Origem), PChar(Destino), true) then ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino); end;
Observações
No exemplo acima, se o arquivo já existir no destino, a função falha (não copia). Para que a função possa sobreescrever o arquivo destino (caso exista), altere o último parâmetro de CopyFile para false. CUIDADO! Se um arquivo for sobreescrito, estará perdido para sempre!
17/12/2003
Douglas Bitencourt
quero copiar do drive a:\ para uma pasta específica...
o que pode estar errado?
Douglas.
18/12/2003
Elmc2003
18/12/2003
Fabio.hc
Origem := ´a:\´;
Destino := pasta específica;
origem vc coloca drive a:\
destino vc coloca a pasta específica...
18/12/2003
Elmc2003
Assim funciona.
Qualquer coisa me retorne.[/url]
18/12/2003
Douglas Bitencourt
obrigado Fabio.HC pela dica (vou testar tb)
20/12/2003
Tales
21/12/2003
Douglas Bitencourt
no meu caso só leu o drive mas não copio nada (o copyfile), mas...
to nos testes ae...
23/12/2003
Xmagno
Ele copia da rede (Origem) e grava em pasta local (Destino)
[]´s
xMagno
var
O, D : String;
Origem : Array[0..255] of char;
Destino: Array[0..255] of char;
begin
O := ParamStr(1);
D := ´C:\APL\´+ExtractFileName(ParamStr(1));
strPCopy( Destino, D );
strPCopy( Origem, O );
//....
TRY
copyFile( Origem, Destino, False );
FINALLY
END;
//.....
end;
Clique aqui para fazer login e interagir na Comunidade :)