send schortcut to desktop ala vbs

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 12. 04. 2002, 11:13 CEST 

mozno to niekoho potesi:
url link:
----------copy and paste to vbs ---
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\site.url")
oShellLink.TargetPath = "http://xxx.sk/x"
oShellLink.Save
-----------end copy ------------
file link:
----------copy and paste to vbs ---
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\file.lnk")
oShellLink.TargetPath = "c:\path\file.exe"
oShellLink.WindowStyle = 1
oShellLink.Hotkey = "CTRL+SHIFT+F"
oShellLink.IconLocation = "notepad.exe, 0"
oShellLink.Description = "My File"
oShellLink.WorkingDirectory = strDesktop
oShellLink.Save
-----------end copy ------------

AleXXX
--

This archive was generated by hypermail 2.1.2 : 12. 04. 2002, 11:26 CEST