Is there code to add a shortcut to a specified location?
Is there code to add a shortcut to a specified location?
(OP)
Can visual basic create a shortcut to a specific file and locate that shortcut in a specific location?
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS Come Join Us!Are you an
Engineering professional? Join Eng-Tips Forums!
*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail. Posting GuidelinesJobs |
Is there code to add a shortcut to a specified location?
|
RE: Is there code to add a shortcut to a specified location?
Here is the code to create a shortcut.
Option Explicit
Private Declare Function fCreateShellLink Lib "Vb5stkit.dll" (ByVal _
lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal _
lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long
Sub Main()
Dim lReturn As Long
Dim sDeskName As String
Dim sLinkDesc As String
Dim sLinkPath As String
Dim sLinkArgs As String
On Error GoTo ErrHndlr
'Add to Desktop
sDeskName = "..\..\Desktop"
sLinkDesc = "Shortcut to TestDoc"
sLinkPath = "\\h4mwn\develop\temp\test.doc"
sLinkArgs = ""
lReturn = fCreateShellLink(sDeskName, sLinkDesc, sLinkPath, sLinkArgs)
If lReturn = 1 Then
MsgBox "The ShortCut has been added to your Desktop!"
Else
MsgBox "I think there was an error creating the shortcut?"
End If
End
ErrHndlr:
sDeskName = "Error No: " & Err.Number & Chr(10) & "Error Desc: " & Err.Description
Err.Clear
MsgBox sDeskName
End
End Sub
DimensionalSolutions@Core.com
While I welcome e-mail messages, please post all thread activity in these forums for the benefit of all members.
RE: Is there code to add a shortcut to a specified location?