Abrir Arquivo Pdf

[Thiago Alves]

Caros, estou com o seguinte problema

Tenho uma aplicação que é usada em mais de 200 máquinas, e mensalmente geramos arquivos de informe financeiro, este arquivo se encontra em PDF, no ano passado trocamos muitas máquinas para o windows vista, com isso o código em VB, parou de funcionar, solicito se alguém pode me ajudar com este problema segue o código.

stAppName = "C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe \\mds522\sispoad$\informes\Novembro_" & Me!AnoExe & ".pdf"

Call Shell(stAppName, 1)

Este código puxa o arquivo do ano e mês que o usuário solicitou, mas agora eu queria aprimorar este código para que funcione no windows XP, tanto nas versões com Reader 7.0 e 8.0

Acho que teria que criar um IF, mais não sei ao certo como devo proceder, caso alguém possa me ajudar, desde de já muito obrigado.

Thiago Alves de Oliveira

[kuroi]

o problema é saber se o diretorio existe?? se for, tenta assim:

If Dir("C:\Program Files\Adobe\Reader 7.0\") <> "" Then
    'Existe o 7.0
ElseIf  Dir("C:\Program Files\Adobe\Reader 8.0\") <> "" Then
    'Existe o 8.0
Else
    'Não existe nenhum dos dois
End If[/code]



entretanto, acho melhor usar o ShellExecute, q vai abrir o arquivo não importa qual versao for. inclusive vai abrir mesmo se o leitor de pdf instalado for outro senao o acrobat. tipo assim:
[code]Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub UserForm_Initialize()
    ShellExecute 1, "Open", "\\mds522\sispoad$\informes\Novembro_" & Me!AnoExe & ".pdf", vbNullString, vbNullString, 1
End Sub

so nunca fiz isso no vista, mas imagino q deva funcionar.