Salvar arquivo em pasta pre-definida

Question

Ol�,Alguem sabe como fazer isso, o usuario clica em um button abre uma caixa de dialogo onde ele vai procurar por um arquivo na maquina dele e qdo achar seleciona o arquivo e depois clica em SALVAR ...

Joel Rodrigues · Answer

Cara, voc� vai usar um componente TOpenDialog e definir o diret�rio inicial dele. Ao clicar no bot�o, voc� pega o nome do arquivo selecionado (opendialog.FileName) e usa para copiar o arquivo para a pasta padr�o usando o comando FopyFile.

Boa sorte.

Luiz Carlos · Answer

Voce poderia me dar um exemplo de como usar esse comando, por exemplo o usuario vai buscar o arquivo na maquina dele com o opendialog, ai seleciona o arquivo e clica em ABRIR no opendialog e o arquivo � salvo na pasta C:\Contas direto.Como fa�o isso?

Grato

Luiz Carlos

Joel Rodrigues · Answer

O c�digo � o seguinte:Eu n�o testei esse c�digo, escrevi direto aqui. Adeque � sua necessidade e teste....

Luiz Carlos · Answer

Blza Joel, funcionou perfeito. Agora desculpe pertubar de novo, mas como faria para se em vez de aalvar na pasta C:\Contas eu quisesse salvar em uma subpasta cujo nome seria o conteudo de um edit, exemplo: salvar o arquivo que foi selecionado no opendialog em C:\Contas\ + edconta.text (este edconta.text contem o nome da subpasta).

Grato

Luiz Carlos

Joel Rodrigues · Answer

Ora, cara, voc� mesmo postou a resposta. Voc� chegou a tentar fazer?[code]�C:Contas� + edconta.text+��+ExtractFileName(openDlg.FileName)[code]...

Luiz Carlos · Answer

Tentei fazer desse jeito mas n�o deu certo:

if AbrePDF.Execute then
begin
if CopyFile(PChar(ABREPDF.FileName), PChar(C:\Contas\ + edcontas.Text + ExtractFileName(abrePDF.FileName)), True) then
ShowMessage(Anexo gravado com sucesso!);
end;

Mas ao inves de salvar na subpasta (cujo nome esta no edcontas) ele salva na pasta C:\Contas e o nome do arquivo � alterado da seguinte forma, nome original ALMOX, apos salvar na pasta errada ele tambem altera o nome para 10ALMOX, onde 10 � o conteudo do edcontas.

Grato

Luiz Carlos

Luiz Carlos · Answer

Rapaz, foi vacilo meu, esqueci de colocar a + ...

Luiz Carlos · Answer

Rapaz, foi erro meu, esqueci de colocar  +  +  depois do edcontas.text, por isso estava dando errado. Muito obrigado pela ajuda Joel.GratoLuiz Carlos ...

F�rum Salvar arquivo em pasta pre-definida #418498