LaunchExeLB

Private Sub File_listbox_Click()
Dim fileName$
Dim programName$
Dim BO As String
BO = File_listbox.fileName
'SETTA LA PATH PER L'INSERIMENTO DEI FILES NELLA LB

fileName = "e:\2000 databases\bo reports\" + BO
'SETTA LA PATH DEL PROGRAMMA

programName = "c:\program files\businessobjects\busobj.exe"
'ESEGUE IL PROGRAMMA AL CLICK

Shell programName & " """ & fileName & """", vbNormalFocus
End Sub

Private Sub Form_Activate()
File_listbox.Path = "E:\2000 Databases\BO Reports\"
End Sub