Só atente para o fato de que o segundo parâmetro não pode ser apenas o nome do
diretório. Deve conter também o nome do arquivo de destino, mesmo que seja um
nome diferente do original.
Exemplo:
var
Arquivo : string;
Origem, Destino : string;
begin
Arquivo := ExtractFileName(OpenDialog1.FileName);
Origem := ExtractFilePath(OpenDialog1.FileName);
Destino := editDestino.Text;
if CopyFile(PChar(Origem+Arquivo), PChar(Destino+Arquivo), false) then
ShowMessage('Arquivo copiado com sucesso!)
else
ShowMessage('Falha na cópia do arquivo!);
end;
Observação: a função ExtractFilePath extrai o caminho do arquivo e seu último
caractere é a barra invertida '\' em Windows XP e mais recentes, porém não
termina com essa barra em Windows 2000 para baixo.
Para isso, crie mais uma funçãozinha assim:
Function FormatFilePath(APath: string): string;
begin
if APath[Length(Apath)] = '\' then
Result := APath
else
Result := APath + '\';
end;
O Delphi possui uma função nativa que inclui essa barra, mas agora não lembro
seu nome. Dê uma procurada, talvez seja mais fácil utilizar.
Abraço, e espero ter ajudado.
--------------------------------------------------------------------------------
Atenciosamente:
Eduardo Cláudio Nicácio
Analista de Sistemas Pleno
Fábrica 02 - CTIS
Tel.: (11) 3150-6841
[EMAIL PROTECTED]
----- Original Message -----
From: Ruth
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 18, 2007 5:21 PM
Subject: Re: [delphi-br] Como Copiar ARQUIVO para uma pasta...
Boa Tarde Ribamar
é só usar a funcao
CopyFile(Origem, Destino, True).
Olha o help do delphi q da uma esclarecida.
----- Original Message -----
From: Ribamar Sousa
To: delphi-br@yahoogrupos.com.br
Sent: Tuesday, September 18, 2007 4:40 PM
Subject: [delphi-br] Como Copiar ARQUIVO para uma pasta...
Boa Tarde pessoal,
estou querendo saber como eu eu faço para copiar um arquivo que o usuario vai
selecionar para uma pasta especificada por mim...
Exemplo:
O Usuario vai selecionar uma IMAGEM no caminho: C:\Meus
Documentos\Imagens\FOTO.JPG
e na hora que for salvar... quero COPIAR para uma pasta especifica:
C:\Projeto\Imagens\
Espero ter sido claro.
Desde já agradeço.
Abraços
Flickr agora em português. Você clica, todo mundo vê.
http://www.flickr.com.br/
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
