LaunchFileLB

Private Sub File_listbox_Click()
Dim fileName$
Dim programName$
Dim BO As String
BO = File_listbox.fileName
'Setta la Path di avvio della FileListBox

fileName = "e:\2000 databases\bo reports\" + BO
'Setta la path del file associato

programName = "c:\program files\businessobjects\busobj.exe"
'Esegue il file al click del mouse

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


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