Ho un software fatto con access 2.0 su un server.
I client puntano a z:\cartellacondivisa (che sul server ovviamente sarebbe c:\cartellacondivisa).

In pratica credo ci sia un errore nella subroutine del programma ma non riesco a capire come risolverlo: in pratica su alcuni client l'apertura dei file con il parametro x = Shell("c:\progra~1\micros~2\office11\excel.exe " & filefine, 3) funziona mentre su altri client no.

Eppure tutti hanno installato office 2003 che si piazza nella cartella programmi\microsoft office\office11

l'errore che mi da il debug su alcuni client è proprio sulle stringhe " x = Shell("c:\progra~1\micros~2\office11\winword.exe " & filefine, 3) " e " x = Shell("c:\progra~1\micros~2\office11\excel.exe " & filefine, 3) "

ma poi perchè c'è quel simbolo?: ~ ????

mi dareste una mano?

codice:
Sub Richiama (Parametro As String, Secondo As Long, Flag As Integer)
    
'On Error GoTo RichiamaErrore

    Dim Path As String, file As String, x As Integer, Tipo As Integer
    Dim filefine As String
    
    Path = DLookup("[Path]", "Procedure", "[Procedura]='" + Parametro + "'")
    file = DLookup("[File]", "Procedure", "[Procedura]='" + Parametro + "'")
    Tipo = DLookup("[Tipo File]", "Procedure", "[Procedura]='" + Parametro + "'")
    
    If Flag = 1 Then
       Path = Path & Mid(Str(Secondo), 2) & "\"
    End If
    
    filefine = Path & file

    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
    

End Sub