VBA Access Creazione lnk

[nman]

..........Dove sbaglio? ...please!

Il tuo "MyDBpath" include anche il nome + estensione del DB
mentre a te serve solo la cartella

poi per trovare la cartela corrente esiste il più semplice "CorrentProject.Path"


non ho capito quel: oMyShortcut.WorkingDirectory = "c:\" ......... ma è per mia ignoranza ....

Prova cosi:

Dim strPercorso As String    ' il percorso del Link
strPercorso = "C:\IlTuo\Percorso\DaAprire"

Dim strNom As String    ' Il nome del link
strNom = "\IlTuoNomeDelLink.lnk"

Dim strMyDBPath As String    ' Il percorso del DB corrente
strMyDBPath = CurrentProject.Path

Dim WshShell
Dim oMyShortcut

Set WshShell = CreateObject("WScript.Shell")
Set oMyShortcut = WshShell.CreateShortcut(strMyDBPath & strNom)

oMyShortcut.WindowStyle = 1
oMyShortcut.IconLocation = strPercorso
oMyShortcut.TargetPath = strPercorso
oMyShortcut.WorkingDirectory = "c:\"
oMyShortcut.Save

Facci sapere