uso questa macro per aprire una cartella,
ma la database deve essere su macchina windows
perche la macro fa riferimento a explorer.exe
Codice: Seleziona tutto
Sub ApriCartella()
Dim xCartella As String
xCartella = "\\Pctac\archivio\Hipop-Archive\H\H 132" '< percorso e nome cartella da adattare
If Len(Dir(xCartella, vbDirectory)) <> 0 Then
Shell "Explorer.exe /n,/e," & xCartella, vbNormalFocus
Else
MsgBox "La cartella non esiste!", vbCritical
End If
End Sub
qualcuno mi puo aiutare
Grazie