Valeu Rubem! Eu já sabia da existência dessa função, só não lembrava o nome!!! rs
Fica aí a dica para o pessoal! Abraços. -------------------------------------------------------------------------------- Atenciosamente: Eduardo Cláudio Nicácio Analista de Sistemas Pleno Fábrica 02 - CTIS Tel.: (11) 3150-6841 [EMAIL PROTECTED] ----- Original Message ----- From: Rubem Nascimento da Rocha To: delphi-br@yahoogrupos.com.br Sent: Wednesday, September 19, 2007 10:49 AM Subject: RE: [delphi-br] Como Copiar ARQUIVO para uma pasta... O Delphi já possui uma função já pronta que faz o mesmo trabalho dessa sua função FormatPath(). Ela se chama IncludeTrailingBackslash(). Informe-se sobre ela no help do Delphi. Sds. ________________________________ To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Tue, 18 Sep 2007 18:30:51 -0300 Subject: Re: [delphi-br] Como Copiar ARQUIVO para uma pasta... 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] __________________________________________________________ Receba GRÁTIS as últimas novidades do esporte direto no seu Messenger! http://signup.alerts.live.com/alerts/login.do?PINID=37485679&returnURL=http://www.nivea.com.br [As partes desta mensagem que não continham texto foram removidas]