🚀 go-pugleaf

Dzień dobry.
Usiłuję zautomatyzować nowelizację bazy i nie umiem sobie poradzić z 
1. Wklejeniem skrótu do bazy na pulpicie w to samo miejsce na którym był stary skrót (by nie wędrował po ekranie)
2. Jeśli użytkownik używa dwa lub więcej ekranów to program  nie znajduje starego skrótu, jeśli jest on umieszczony na ekranie drugim
3. Jak wykonać operację podmianki skrótów jeśli użytkownik ma je umieszczone na pasku zadań lub w menu rozwijalnym

To co znalazłem w internecie chodzi poprawnie (oprócz w/w zastrzeżeń) i ma postać

Dim sPath, Scieżka_Folderu_Bazy As String
    sPath = CurrentDb.Name
    Scieżka_Folderu_Bazy = Left$(sPath, Len(sPath) - Len(Dir$(sPath)))

'tworzymy nowy
Dim wersja As String
Dim WScript
Dim WSHShell
Dim strDesktop
Dim oShellLink
Dim xx As Integer
Dim strComputer As String
Dim objWMIService
Dim colItems
Dim objItem
Dim strpath
Dim colFiles
Dim objFile
Dim a As String
 'usuwam stary skrót
xx = DBEngine.Workspaces(0)(0).Containers("Databases").Documents("UserDefined").Properties("WersjaProg")
  strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_ShortcutFile Where FileName = 'baza 2018 (" & xx & ")'")
For Each objItem In colItems
    If InStr(objItem.Name, "desktop") Then
        strpath = objItem.Name
        strpath = Replace(strpath, "\", "\\")
        Set colFiles = objWMIService.ExecQuery("Select * From CIM_Datafile Where Name = '" & strpath & "'")
        For Each objFile In colFiles
            objFile.Delete
       Next
    End If
 Next
  'tworzę nowy skrót
  xx = xx + 1
          Set WSHShell = CreateObject("wscript.Shell")
          strDesktop = WSHShell.SpecialFolders("Desktop")
          Set oShellLink = WSHShell.CreateShortcut(strDesktop & "\Baza 2018 (" & xx & ").lnk")
          oShellLink.TargetPath = Scieżka_Folderu_Bazy & "Baza 2018 (" & xx & ").accdb"
          oShellLink.WindowStyle = 1
          oShellLink.Hotkey = "CTRL+SHIFT+b"
          oShellLink.WorkingDirectory = Scieżka_Folderu_Bazy
          oShellLink.Save

Set WSHShell = Nothing
End Sub

Z góry dziękuję za pomoc

Jan Kociumbas