[VBA] problema di percorsi

[Luca1317]

Originariamente inviato da gibra
Veramente a me sembra proprio la soluzione più veloce.

capisco la tua osservazione ma fidati...non lo è


non è che mi daresti una mano a far funzionare sto maledetto ELSE perchè così com'è il codice mi da errore già al primo percorso e vorrei che se non trovasse winword o excel nella cartella c:\progra~1\micros~2\office11\ vada nella cartella c:\winword\winword.exe o c:\excel\excel.exe:

il pezzo incriminato è questo:

 If Tipo = 1 Then
       If Len(Dir$("z:\luca\win.txt")) <> 0 Then
          x = Shell("c:\progra~1\micros~2\office11\winword.exe " & filefine, 3)
       Else
          x = Shell("c:\winword\winword.exe " & filefine, 3)
       End If
    Else
       If Len(Dir$("z:\luca\win.txt")) <> 0 Then
          x = Shell("c:\progra~1\micros~2\office11\excel.exe " & filefine, 3)
       Else
          x = Shell("c:\excel\excel.exe " & filefine, 3)
       End If
    End If