VB code to create a link file

[Grovkillen]

Hi there,

I just thought I may share my findings regarding creating a short cut file within MS. I do this to create a link in the startup folder (this example I pointed it to the desktop).

Code: Select all

VBSTART
Function GetFolder(LinkFolder, TargetPath, IconPath, LinkName)
  Set WShell = CreateObject("WScript.Shell")
	GetFolder = WShell.SpecialFolders(LinkFolder)
  Set oShellLink = CreateObject("WScript.Shell").CreateShortcut(GetFolder & "\" & LinkName & ".lnk")
  oShellLink.WorkingDirectory = GetFolder
  oShellLink.TargetPath = TargetPath
  oShellLink.IconLocation = IconPath
  oShellLink.Description = TargetPath
  oShellLink.Save
	Set WShell = Nothing
  Set oShellLink = Nothing
End Function
VBEND

Let>LINK_FOLDER=Desktop
Let>LINK_TARGET=C:\
Let>ICON_PATH=C:\*****.ico
Let>LINK_NAME=Shortcut
VBEval>GetFolder("%LINK_FOLDER%", "%LINK_TARGET%", "%ICON_PATH%", "%LINK_NAME%"),FOLDER_PATH
MDL>FOLDER_PATH

Enjoy!

More information is found here>>

Special folders to use>>

[Grovkillen]

List of useful places to create a shortcut file:

LINK_FOLDER=

"Startup" (Will create a link in the startup folder for the user, thus have your script or whatever started on Windows login")
"Programs" (Will create a link on the users start menu, under programs)
"Desktop" (Will create a link on the users desktop)

[Grovkillen]

Note to myself. Font folder is found by using this code:

Code: Select all

VBSTART
Function GetFolder(LinkFolder)
  Set WShell = CreateObject("WScript.Shell")
   GetFolder = WShell.SpecialFolders(LinkFolder)
   Set WShell = Nothing
End Function
VBEND
Let>LINK_FOLDER=Fonts
VBEval>GetFolder("%LINK_FOLDER%"),FOLDER_PATH
MDL>FOLDER_PATH

[Grovkillen]

An updated version:

Code: Select all

VBSTART 
Function LinkFile(LinkFolder, TargetPath, LinkName, IconPath)
  Set WShell = CreateObject("WScript.Shell")
  LinkFile = WShell.SpecialFolders(LinkFolder)
  Set oShellLink = CreateObject("WScript.Shell").CreateShortcut(LinkFile & "\" & LinkName & ".lnk")
  oShellLink.WorkingDirectory = LinkFile
  oShellLink.TargetPath = TargetPath
  If IconPath <> "" Then
    oShellLink.IconLocation = IconPath
  End if
  oShellLink.Description = TargetPath
  oShellLink.Save
	Set WShell = Nothing
  Set oShellLink = Nothing
End Function
VBEND

/*
Let>LINK_FOLDER=Startup
Let>LINK_TARGET=C:\your_file.exe
Let>ICON_PATH=C:\*****.ico   <---- leave as "" if not wanted
Let>LINK_NAME=Shortcut
VBEval>LinkFile("%LINK_FOLDER%", "%LINK_TARGET%", "%LINK_NAME%", "%ICON_PATH%"),FOLDER_PATH
//or
VBEval>LinkFile("%LINK_FOLDER%", "%LINK_TARGET%", "%LINK_NAME%", ""),FOLDER_PATH
*/

[OldGeek]

As a beginner I'm always looking for tips and code samples. I think when you cut / paste
you missed the VBStart at the start. Just my two cents in case some other beginner is
looking for examples. Thanks for the code sample.

[Grovkillen]

Thanks for pointing it out, fixed now.