Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Create a desktop shortcut

Status
Not open for further replies.
DannC

DannC

Programmer
Apr 5, 2001
75
RO
If !file("c:\windows\desktop\Ecostart40.lnk")

oShell =CreateObject("Wscript.Shell")
If vartype(oShell)=="O"

oShellLink = oShell.CreateShortcut("c:\windows\desktop\Ecostart40.lnk")

If vartype(oShellLink)=="O"

With oShellLink


.TargetPath = "c:\media\et.exe"
.WorkingDirectory="d:\media\"
.windowStyle=3
.Description="this si ET"
.iconLocation="d:\media\et.exe"
.hotKey="CTRL+ALT+E"
.Save

Endwith
Endi
Endi
Endi



 
Status
Not open for further replies.

Similar threads

SitesMasstec
  • Locked
  • Question
Create a table with Tag indexes 1
Replies
13
Views
912
TamarGranor
TamarGranor
tom10
  • Locked
  • Question
Create eMail
Replies
8
Views
230
Chris Miller
Chris Miller
german12
  • Locked
  • Question
How to create and manage a listbox 2
Replies
6
Views
235
german12
german12
Filip Brnic
  • Locked
  • Question
Create a table if it doesn't exist, if it does do nothing.
Replies
8
Views
249
Chris Miller
Chris Miller
SitesMasstec
  • Question
How to order a column of data in a Grid
Replies
3
Views
323
EinTerraner
EinTerraner

Part and Inventory Search

Sponsor

Back
Top