By: Colin v. ____

Colin v. ____ — Mon, 15 Mar 2010 21:31:09 +0000

Well, when I try to run it it says, Comments only allowed after End Dub, etc. this is the code I use:

Private Sub Command1_Click()
Dim strGroupName As String, strLinkName As String
Dim strLinkPath As String, strLinkArguments As String, sParent As String
Dim fPrivate As Boolean, fSuccess As Boolean
strLinkName = Text3.Text
strLinkPath = Text1.Text
strLinkArguments = “”
fPrivate = True
‘Add shortcut to the path selected in the second TextBox
strGroupName = Text2.Text
sParent = “$(Programs)”
fSuccess = fCreateShellLink(strGroupName & vbNullChar, strLinkName, strLinkPath, strLinkArguments & _
vbNullChar, fPrivate, sParent)
‘the path should never be enclosed in double quotes
If fSuccess Then
MsgBox “Created desktop shortcut, Loaction: ” & strGroupName
Else
MsgBox “Unable to create shortcut. (File path: ” & strLinkPath & ” Shortcut Path: ” & strGroupName & “)”
End If
End Sub

Private Declare Function fCreateShellLink Lib “vb6stkit.dll” (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
End Function

Can you help me?

Comments on: How to Add a shortcut in current users Desktop, Programs menu and Startup folder

By: Colin v. ____