RDM
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 14/05/2010 18:08 hs
Boa Noite! Pessoal, eu preciso desenvolver um aplicativo bem simples que faça o seguinte: um formulário com um textbox e um botão, só isto, a função deste aplicativo será a seguinte: aqui na empresa nós temos uma pasta no servidor com varios arquivos PDF, o nome destes arquivos são numeros (codigo de produtos) tipo: 45698, 48796 e assim vai, eu preciso que quando o usuário digitar o código (nome do arquivo pdf) e clicar no botão, ele va até esta pasta que fica em nosso servidor, localize este arquivo e abra na tela, porem eu não sei como fazer isto. desde ja agradeço, obrigado
RDM Informática
|
|
|
|
|
|
|
|
Postada em 14/05/2010 20:06 hs
'Nome do Text: txtCodigoArquivo
'Nome do Botão: cmdAbrirPDF Private Sub cmdAbrirPDF_Click() Dim CodigoArquivo As String
CodigoArquivo = txtCodigoArquivo.Text
CodigoArquivo = CodigoArquivo & ".pdf"
'VERIFIQUE O CAMINHO SO SEU EXECUTÁVEL DO LEITOR DE PDF
'VERIFIQUE O CAMINHO DO SEU SERVIDOR
strCompleta = "C:Program FilesAdobeReader 9.0ReaderAcroRd32.exe \Servidor" & CodigoArquivo
Shell strCompleta, vbMaximizedFocus
End Sub |
|
|
|
|
|
Postada em 14/05/2010 20:10 hs
Notei que o código anterior ficou meio apagado então segue o mesmo: 'Nome do Text: txtCodigoArquivo
'Nome do Botão: cmdAbrirPDF Private Sub cmdAbrirPDF_Click() Dim CodigoArquivo As String
CodigoArquivo = txtCodigoArquivo.Text
CodigoArquivo = CodigoArquivo & ".pdf" 'VERIFIQUE O CAMINHO SO SEU EXECUTÁVEL DO LEITOR DE PDF
'VERIFIQUE O CAMINHO DO SEU SERVIDOR
strCompleta = "C:Program FilesAdobeReader 9.0ReaderAcroRd32.exe Servidor" & CodigoArquivo
Shell strCompleta, vbMaximizedFocus End Sub |
|
|
|
RDM
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/05/2010 12:07 hs
Bom Dia! cara, eu fiz como vc descreveu, mas deu erro (houve um erro ao abrir este documento. o documento não pode ser encontrado) deu este erro tanto buscando em um servidor na rede quanto local, segue abaixo o código. Private Sub cmdAbrirPDF_Click()
Dim CodigoArquivo As String
CodigoArquivo = txtCodigoArquivo.Text
CodigoArquivo = CodigoArquivo & ".pdf"
strCompleta = "C:Arquivos de programasAdobeReader 9.0ReaderAcroRd32.exe C:Documents and SettingsRodrigoTIDesktopMIRIAM0001" & CodigoArquivo
Shell strCompleta, vbMaximizedFocus
End Sub |
|
|
|
|
|
Postada em 17/05/2010 19:46 hs
A minha rotina, eu teste e funcionou. É preciso você testar, deve ser algo no caminho do Reader ou do servidor, mas deve ser detalhe pequeno. |
|
|
|
