Name    Type    Size

ID    Long Integer    4

Folder1    Text    255

Folder2    Text    255

Folder3    Text    255

Folder4    Text    255

Name    Text    255

URL    Memo    0

Private Sub Command427_Click()
    'Create a Desktop Shortcut to this Access MDB file
    
    'strShortcutName = "Access Shortcut"
    'strDesktop = C:\Documents and Settings\gary\Desktop
    'strProgLocn = C:\Program Files\Microsoft Office\OFFICE11\msaccess.exe
    'strDBLocn = C:\Utility Work.mdb
    'strDBPath = C:\

    Dim objWshShell As Object
    Dim objWshShortcut As Object
    
    Dim strShortcutName As String
    Dim strDesktop As String
    Dim strProgLocn As String
    Dim strDBLocn As String
    Dim strDBPath As String
    
    Dim int1 As Long
    Dim int2 As Long
    
    Set objWshShell = CreateObject("WScript.Shell")
    strShortcutName = "Access Shortcut"
    strDesktop = objWshShell.SpecialFolders("Desktop")
    strProgLocn = SysCmd(acSysCmdAccessDir) & "msaccess.exe"
    strDBLocn = CurrentDb.Name
    int1 = Len(strDBLocn)
    int2 = Len(Dir(strDBLocn))
    strDBPath = Left(strDBLocn, int1 - int2)
    
    Set objWshShortcut = objWshShell.CreateShortcut(strDesktop & "\" & strShortcutName & ".lnk")
    With objWshShortcut
        .TargetPath = strProgLocn
        .Arguments = Chr$(34) & strDBLocn & Chr$(34)
        .WorkingDirectory = strDBPath
        .WindowStyle = 4
        .Save
    End With
    Set objWshShortcut = Nothing
    Set objWshShell = Nothing
End Sub

Sub cmdCreate_Favorite_Click()
    CreateInternetShortCut "http://www.utteraccess.com/", "C:\Documents and Settings\" & UserNameWindows & "\Favorites\UtterAccess.url"
    
    ' http://www.utteraccess.com/forums/printthread.php?Cat=&Board=47&main=1674600&type=thread
End Sub

Function UserNameWindows()
    Dim sUserNameWindows
    sUserNameWindows = Environ("USERNAME")
    UserNameWindows = sUserNameWindows
End Function

Sub CreateInternetShortCut(TargetURL As String, FullPath As String)
    Dim iFile As Integer
    iFile = FreeFile
    Open FullPath For Output As #iFile
    Print #iFile, "[InternetShortcut]"
    Print #iFile, "URL=" & TargetURL
    Close #iFile
End Sub