desktop shortcut

[lixtifur36]

Dim mExeFileSpec As String
Dim mDestPath As String
I am trying to make a setup program for my Access app. I need some help with puting a shortcut on the destop. My code is as folows:

Private Declare Function OSfCreateShellLink Lib "vb6stkit.dll" Alias "fCreateShellLink" _
(ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, _
ByVal lpstrLinkPath As String, ByVal lpstrLinkArguments As String, _
ByVal fPrivate As Long, ByVal sParent As String) As Long

Dim mArgList As String
Dim mTitleRef As String
Dim mPrivate As Boolean
Dim mParent As String
On Error GoTo a
mExeFileSpec = drv + "\OTC Trade Manager\OTC Trade Manager.mdb"
mArgList = ""
mDestPath = "..\..\Desktop"
mTitleRef = "OTC TradeManager"
mPrivate = True
mParent = "$(Programs)"
OSfCreateShellLink mDestPath, mTitleRef, mExeFileSpec, mArgList, mPrivate, mParent

Can anyone please help.
Thank you

 

[PHV]

mExeFileSpec = """" & drv & "\OTC Trade Manager\OTC Trade Manager.mdb"""

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886