Here is the code that I use to create a shortcut of Access database file in current directory and change the shortcut icon

[nhtuan]

Private Sub Command6_Click()
   Dim ShortcutPath As String
   Dim FileSname As String
  
   FileSname = Left(CurrentProject.Name, InStr(CurrentProject.Name, ".") - 1)
   ShortcutPath = CurrentProject.Path & "\" & FileSname & " - Shortcut.lnk"
    With VBA.CreateObject("WScript.Shell").CreateShortCut(ShortcutPath)
        .TargetPath = CurrentProject.Path & "\" & CurrentProject.Name
        .WorkingDirectory = CurrentProject.Path
        .Description = "Shortcut"
        .IconLocation = CurrentProject.Path & "\" & "mydraw.ico"
        .WindowStyle = 7
        .Save
    End With
End Sub

 

[theDBguy]

Hi. Thanks for sharing.

 

[Gasman]

Wouldn't the shortcut be more useful on the desktop?

 

[nhtuan]

Wouldn't the shortcut be more useful on the desktop?

You can copy and paste a shortcut anywhere you want in your local machine.