Buongiorno oregon,
purtroppo non ho dropbox, comunque allego l'intero codice del progetto.
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 ShowCmd As Long) As Long
Option Explicit
Private mstrDrive As String
Private Sub dirSelDir_Change()
filTextFileViewer.Path = dirSelDir.Path
End Sub
Private Sub dirSelDir_Click()
With dirSelDir
.Path = .List(.ListIndex)
End With
End Sub
Private Sub filTextFileViewer_Click()
Dim lRet As Long
On Error GoTo msg
lRet = ShellExecute(0, "open", App.Path & "\test.txt", "", "", 0)
Exit Sub
msg:
MsgBox ("Impossibile aprire il file")
End Sub