INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Member Login

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips now!

Talk With Other Members
Be Notified Of Responses
To Your Posts
Keyword Search
One-Click Access To Your
Favorite Forums
Automated Signatures
On Your Posts
Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

LINK TO THIS FORUM!

Tek-Tips LinkedIn^® Group

Join our
LinkedIn^® Group!

Hook up with past and present colleagues and classmates quickly.

Partner With Us!

"Best Of Breed" Forums Add Stickiness To Your Site

(Download This Button Today!)

Feedback

"...Thank you again! I can't tell you how much I and my company appreciate what you've done! I love this place!..."

More...

Geography

Where in the world do Tek-Tips members come from?

Click Here To Find Out!

Tek-Tips Shirts!

Get your
Tek-Tips Forums
SWAG here!

Home > Forums > Programmers > Languages > Visual Basic(Microsoft): Version 5 & 6 > FAQs

Visual Basic(Microsoft): Version 5 & 6 FAQ

Code Links

Creating a shortcut

faq222-3165

Posted: 12 Feb 03

Thanks to everyone for your support. The following code gave me my first star and it was a good feeling to help somone else, so now I give stars even to old links. Anything that helps me. Once again Thanks everyone.

Create a form with a yes and no buttons
make reference to 'Windows Script Host Object Model'Its near the end

paste the following code
-------------------------------------------------------

Private Sub Command1_Click()
' yes click
    CreateMyShortcut "C:\Program Files\PERT", "PERT.lnk"
    End
End Sub
________________________________________________________

Private Sub Command2_Click()
' no click
End
End Sub

---------------------------------------------------------

Create a new module and paste the following

---------------------------------------------------------
Option Explicit

Public Sub CreateMyShortcut(strTarget As String, strShortCutName As String, Optional strStartIn As String = "", Optional strArguments As String = "")
    Dim wsh As Object
    Dim sf As Object
    Dim Shortcut As Object

    Set wsh = CreateObject("wscript.shell")
    Set sf = wsh.SpecialFolders

' Creates shortcut on desktop
    Set Shortcut = wsh.CreateShortcut(sf("AllUsersDesktop") & "\" & strShortCutName)
    Shortcut.TargetPath = "C:\Program Files\Common Files\Microsoft Shared\Access Runtime\Office10\MSACCESS.EXE"
    Shortcut.IconLocation = "C:\Program Files\PERT\pert.ico"
    Shortcut.WorkingDirectory = "C:\Program Files\PERT\"
    Shortcut.Description = "DEVELOPED BY iASSIST SOFTWARE DEVELOPERS"
    Shortcut.Arguments = "C:\Program Files\PERT\PERT.mdb"
    Shortcut.Save

' Creates shortcut in statrup
    Set Shortcut = wsh.CreateShortcut(sf("AllUsersStartup") & "\" & strShortCutName)
    Shortcut.TargetPath = "C:\Program Files\PERT\PERT.mdb"
    Shortcut.IconLocation = "C:\Program Files\PERT\pert.ico"
    Shortcut.WorkingDirectory = "C:\Program Files\PERT\"
    Shortcut.Arguments = strArguments
    Shortcut.Save

End Sub

___________________________________________________________

Let me know if this helps anyone

I would like to thank all members of this forum for all your priceless information.

Back to Visual Basic(Microsoft): Version 5 & 6 FAQ Index
Back to Visual Basic(Microsoft): Version 5 & 6 Forum

My Archive

My FAQ Archive