Ciao a tutti.

Nel mio programma devo poter aprire alcuni file excel e word.
Per far questo uso il seguente codice:

codice:
Private Sub Command4_Click()
Dim RetVal
RetVal = Shell("C:\Program Files\Microsoft Office\Office10\EXCEL.EXE " & """" & App.Path & percorsox & """", 1)
End Sub

Private Sub Command5_Click()
Dim RetVal
RetVal = Shell("C:\Program Files\Microsoft Office\Office10\WINWORD.EXE " & """" & App.Path & percorsow & """", 1)
End Sub
Purtroppo excel e word potrebbero essere ovunque!
Le mie domande sono :
1) Non c'è modo di aprire i file senza dover specificare il percorso dell'applicativo???
2) Se non è possibile, come ricavo il percorso in maniera sicura e esatta (so che probabilmente è scritto sul registro, ma non so come e dove leggere tale informazione

Grazie in anticipo per le risposte


P.S. Probabilmente è già stato trattato il problema, ma dopo alcune ricerche deludenti ho aperto questo 3d. Non arrabbiatevi