Obrigado pessoal pela ajuda... Abraços
----- Mensagem original ---- De: Edu Nicácio <[EMAIL PROTECTED]> Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 19 de Setembro de 2007 11:40:22 Assunto: Re: [delphi-br] Como Copiar ARQUIVO para uma pasta... 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 eduardo.nicacio@ ctis.com. br ----- Original Message ----- From: Rubem Nascimento da Rocha To: [EMAIL PROTECTED] os.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 IncludeTrailingBack slash(). Informe-se sobre ela no help do Delphi. Sds. ____________ _________ _________ __ To: [EMAIL PROTECTED] os.com.br From: ecnicacio_2005@ yahoo.com. br 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 eduardo.nicacio@ ctis.com. br ----- Original Message ----- From: Ruth To: [EMAIL PROTECTED] os.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: [EMAIL PROTECTED] os.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] 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]
