ricavare percorso excel e word

[gaullo]

Ciao a tutti.

Nel mio programma devo poter aprire alcuni file excel e word.
Per far questo uso il seguente 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

[DeBe99]

puoi usare l'API shellExecute per aprire il file, in questo modo non ti serve sapere il percorso di excel o word.

[gaullo]

potresti postarmela???
Non uso spesso le api, potrebbe avere problemi se usata su differenti sistemi operativi (solo microsoft oviamente)

Grazie

ciao

[DeBe99]

in un modulo generale:

Public 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 nShowCmd As Long) As Long

Public Const SW_SHOWNORMAL = 1

per lanciare il file word o excel (o qualsiasi altro):

ShellExecute Me.hwnd, vbNullString, "c:\FileWord.doc", vbNullString, "C:\", SW_SHOWNORMAL

[gaullo]

ok, ma se excel o word non fossero installati su c:\ ???

Grazie comunque, è già un passo avanti

[xegallo]

non centra dove sono installati la funzione sa quale applicazione apre un certo file e si occupa lei di trovarla

[gaullo]

a ok, era il penultimo parametro che mi aveva fatto pensare questo.
Ma allora quel "C:\" cosa specifica??

[DeBe99]

è la directory di lavoro. Su excel e word non credo che serva.

[gaullo]

ok, grazie mille

ciao:quote: :quote: :mavieni: :metallica