Se lancio la Sub che segue nel compilato di VB6 funziona regolarmente.
se, invece mi trovo nell' IDE di VB6 non si apre il pdf.
Qualche indizio ?
Public Sub ApriPDF(Nomefile As String)
Const SW_SHOWNORMAL As Long = 1
Const ERROR_BAD_FORMAT As Long = 11
Const SE_ERR_ACCESSDENIED As Long = 5
Const SE_ERR_ASSOCINCOMPLETE As Long = 27
Const SE_ERR_DDEBUSY As Long = 30
Const SE_ERR_DDEFAIL As Long = 29
Const SE_ERR_DDETIMEOUT As Long = 28
Const SE_ERR_DLLNOTFOUND As Long = 32
Const SE_ERR_FNF As Long = 2 ' file not found
Const SE_ERR_NOASSOC As Long = 31
Const SE_ERR_PNF As Long = 3 ' path not found
Const SE_ERR_OOM As Long = 8 ' out of memory
Const SE_ERR_SHARE As Long = 26
Dim Scr_hDC As Long
Dim Ret As Long
Dim sMsg As String
Dim risposta As Long
Scr_hDC = GetDesktopWindow()
Ret = ShellExecute(Scr_hDC, "Open", Nomefile, "", PercorsoProg, SW_SHOWNORMAL)
If Ret <= 32 Then 'There was an error
Select Case Ret
Case SE_ERR_FNF
sMsg = "File not found"
Case SE_ERR_PNF
sMsg = "Path not found"
Case SE_ERR_ACCESSDENIED
sMsg = "Access denied"
Case SE_ERR_OOM
sMsg = "Out of memory"
Case SE_ERR_DLLNOTFOUND
sMsg = "DLL not found"
Case SE_ERR_SHARE
sMsg = "A sharing violation occurred"
Case SE_ERR_ASSOCINCOMPLETE
sMsg = "Incomplete or invalid file association"
Case SE_ERR_DDETIMEOUT
sMsg = "DDE Time out"
Case SE_ERR_DDEFAIL
sMsg = "DDE transaction failed"
Case SE_ERR_DDEBUSY
sMsg = "DDE busy"
Case SE_ERR_NOASSOC
sMsg = "No association for file extension"
Case ERROR_BAD_FORMAT
sMsg = "Invalid EXE file or error in EXE image"
Case Else
sMsg = "Unknown error"
End Select
If Ret = 31 Then
' non è installato Acrobat Reader
MsgBox ("ATTENZIONE: in questo sistema non è installato Acrobat Reader")
Else
MsgBox ("ERRORE: n. " & Ret & " - " & sMsg)
End If
End If
End Sub