creating or copying a shortcut to the desktop of an .mdb 1

[Pampers]

Hi everyone,
I'm trying to create (or copy) a shortcut to the desktop-folder of access-application. Can't get it done. Any suggestions?

Pampers
Keeping it simple can be complicated

 

[Pampers]

Think I found something:

Dim strDesktop As String
Dim objShortcut As Object
Dim objShell As Object
Dim wshShell As Object

'Create Shell Application
Set objShell = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
strDesktop = wshShell.SpecialFolders("Desktop")
Set objShortcut = wshShell.CreateShortcut(strDesktop & "\user2.lnk")
objShortcut.TargetPath = "C:\Server\Ava2000v1.0.mdb"
objShortcut.IconLocation "C:\Server\Pictures\icon.ico "
objShortcut.Save

Set objShell = Nothing
Set wshShell = Nothing
Set objShortcut = Nothing

Pampers
Keeping it simple can be complicated

 

[Pampers]

Sorry, little correction (in IconLocation:

Dim strDesktop As String
Dim objShortcut As Object
Dim objShell As Object
Dim wshShell As Object

'Create Shell Application
Set objShell = CreateObject("Shell.Application")
Set wshShell = CreateObject("WScript.Shell")
strDesktop = wshShell.SpecialFolders("Desktop")
Set objShortcut = wshShell.CreateShortcut(strDesktop & "\user2.lnk")
objShortcut.TargetPath = "C:\Server\Ava2000v1.0.mdb"
objShortcut.IconLocation = "C:\Server\Pictures\iSAS.ico"
objShortcut.Save

Set objShell = Nothing
Set wshShell = Nothing
Set objShortcut = Nothing

Pampers
Keeping it simple can be complicated

 

[PHV]

FYI you don't need the objShell object.

 

[Pampers]

Hi PHV,
What would be an other way...

Pampers
Keeping it simple can be complicated

 

[PHV]

I meant this:

Dim strDesktop As String
Dim objShortcut As Object
[!][s]Dim objShell As Object[/s][/!]
Dim wshShell As Object

'Create Shell Application
[!][s]Set objShell = CreateObject("Shell.Application")[/s][/!]
Set wshShell = CreateObject("WScript.Shell")
strDesktop = wshShell.SpecialFolders("Desktop")
Set objShortcut = wshShell.CreateShortcut(strDesktop & "\user2.lnk")
objShortcut.TargetPath = "C:\Server\Ava2000v1.0.mdb"
objShortcut.IconLocation = "C:\Server\Pictures\iSAS.ico"
objShortcut.Save

[!][s]Set objShell = Nothing[/s][/!]
Set wshShell = Nothing
Set objShortcut = Nothing

 

[Pampers]

Hi PHV,
I thought you had to create the Shell object first. But that is thus not the case. Thanx for the info.

Pampers
Keeping it simple can be complicated