Originariamente inviato da Luca1317
il programma funziona...è stato scritto da un programmatore in accesss 2.0 più di dieci anni fa

so che quell'if è strano ma se vedessi il resto del codice non crederesti ai tuoi occhi
Quell'if e' assolutamente inutile e faresti bene a toglierlo ... se ci sono altre linee che non hanno senso, faresti meglio a toglierle ...

in pratica questa sub fa si che al click di un tasto in una maschera vengano aperti i file excel o word con i rispettivi programmi
Il programma fa il test con i file DOC, altrimenti li considera TUTTI Excel, dato che non testa l'estensione XLS.

Non hai detto se stai riscrivendo il programma in VB6 ... in questo caso butta tutto e utilizza la ShellExecute per avviare il programma di default assegnato all'estensione del file dal sistema

codice:
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 nShowCmd As Long) _
                            As Long


...

   Dim r As Long
   r = ShellExecute(0, "open", NomeFile, 0, 0, 1)