Fórum duvida sobre a função copyfiles #344246
08/08/2007
0
function TForm1.CopiarArquivo(const AOrigem, ADestino: string;
const APodeSobrescrever: Boolean): Boolean;
begin
Result := CopyFile(PChar(AOrigem), PChar(ADestino), APodeSobrescrever);
end;
procedure TForm1.Button1Click(Sender: TObject);
var variavel:boolean;
begin
variavel:= CopiarArquivo(´C:\copiando arquivos.txt´,´c:\nova pasta´,True);
if variavel= true then
showmessage(´copiado´)
else
showmessage(´nao copiado´);
end;
end.
desde ja agradecido
Miguel
Miguel
Curtir tópico
+ 0Posts
08/08/2007
Massuda
Gostei + 0
08/08/2007
Emerson Nascimento
se você quer copiar para dentro da pasta, deverá passar o caminho completo no segundo parâmetro: ´c:\nova pasta\copiando arquivos.txt´
Gostei + 0
08/08/2007
Miguel
Gostei + 0
10/08/2009
Tiago Rocha
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)