matheuso
Aprendiz
Registrado: Terça-Feira, 10 de Julho de 2012
Mensagens: 135
Localização: RS
|
 Enviada: Seg Dez 09, 2013 10:09 am Assunto: Copiar arquivo |
 |
|
ola galera
to precisando implementar uma funcao simples no programa mas nao estou conseguindo, por isso venho pedir ajuda a vcs.
Tenho um diretorio salvo no banco onde estao salvos os meus pdfs e quero disponibilizar ao usuario visualizar esta lista de arquivos e quando ele clicar abrir a tela de salvar arquivo do windows para ele salvar uma copia do arquivo onde quiser. alguem tem alguam dica? |
|
rique_neves
Mestre
Registrado: Sexta-Feira, 17 de Fevereiro de 2012
Mensagens: 873
|
| Enviada: Seg Dez 09, 2013 1:50 pm Assunto: Re: Copiar arquivo |
|
|
Directorylistbox = diretorio_origem
Filelistbox = arquivo_origem
Directorylistbox = diretorio_destino
| Código: | | var destino,origem,data,nome_arquivo:String; |
| Código: | origem:=arquivo_origem.FileName;
data:=copy(datetostr(date),1,2)+'_'+copy(datetostr(date),4,2)+'_'+copy(datetostr(date),7,4);
nome_arquivo:=arquivo_origem.Items[arquivo_origem.Itemindex];
destino:=diretorio_destino.Directory+'\Copia_'+nome_arquivo+'_'+data;
try
CopyFile(pchar(origem),pchar(destino),False);
Application.MessageBox(pchar(' Cópia gerada com sucesso!!'),pchar(' Mensagem'),MB_OK + MB_DEFBUTTON1);
Except
Application.MessageBox(pchar(' Falha ao gerar arquivo!!'),pchar(' Mensagem'),MB_OK + MB_DEFBUTTON1);
end |
tente esta ideia,, insira a rotina acima no botão para salvar o arquivo.,,espero te ajudar.abraço
_________________
Atrás de todo problema a uma oportunidade brilhantemente disfarçada!
Compartilhar Imagens .: http://s124.photobucket.com/ |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
