Создание ярлыка - VB

<font color="green">' Windows Script Host Sample Script
<br>'</font>
<br><font color="green">' ------------------------------------------------------------------------
<br>'</font>               Copyright (C) <b><font color="darkblue">1996</font></b>-<b><font color="darkblue">1997</font></b> Microsoft Corporation
<br><font color="green">'
<br>'</font> You have a royalty-free <font color="blue">right</font> to use, modify, reproduce <font color="blue">and</font> distribute
<br><font color="green">' the Sample Application Files (and/or any modified version) in any way
<br>'</font> you find useful, provided that you agree that Microsoft has no warranty,
<br><font color="green">' obligations or liability for any Sample Application Files.
<br>'</font> <font color="darkblue"><i>------------------------------------------------------------------------
<br></i></font><br>
<br>
<br><font color="green">' This sample demonstrates how to use the WSHShell object to create a shortcut
<br>'</font> <font color="blue">on</font> the desktop.
<br>
<br>L_Welcome_MsgBox_Message_Text   = <b><font color="green">"This script will <font color="blue">create</font> a shortcut to Notepad <font color="blue">on</font> your desktop."</font></b>
<br>L_Welcome_MsgBox_Title_Text     = <b><font color="green">"Windows Scripting Host Sample"</font></b>
<br>Call Welcome()
<br>
<br><font color="green">' ********************************************************************************
<br>'</font> *
<br><font color="green">' * Shortcut related methods.
<br>'</font> *
<br>
<br>Dim WSHShell
<br><font color="blue">Set</font> WSHShell = WScript.CreateObject(<b><font color="green">"WScript.Shell"</font></b>)
<br>
<br>
<br>Dim MyShortcut, MyDesktop, DesktopPath
<br>
<br><font color="green">' Read desktop path using WshSpecialFolders object
<br>DesktopPath = WSHShell.SpecialFolders("Desktop")
<br>
<br>'</font> <font color="blue">Create</font> a shortcut object <font color="blue">on</font> the desktop
<br><font color="blue">Set</font> MyShortcut = WSHShell.CreateShortcut(DesktopPath & <b><font color="green">"\Shortcut to notepad.lnk"</font></b>)
<br>
<br><font color="green">' Set shortcut object properties and save it
<br>MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe")
<br>MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("%windir%")
<br>MyShortcut.WindowStyle = 4
<br>MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("%windir%\notepad.exe, 0")
<br>MyShortcut.Save
<br>
<br>WScript.Echo "A shortcut to Notepad now exists on your Desktop."
<br>
<br>'</font> ********************************************************************************
<br><font color="green">' *
<br>'</font> * Welcome
<br>' *
<br>Sub Welcome()
<br>    Dim intDoIt
<br>
<br>    intDoIt =  MsgBox(L_Welcome_MsgBox_Message_Text,    _
<br>                      vbOKCancel + vbInformation,       _
<br>                      L_Welcome_MsgBox_Title_Text )
<br>    <font color="blue">If</font> intDoIt = vbCancel Then
<br>        WScript.Quit
<br>    <font color="blue">End</font> <font color="blue">If</font>
<br><font color="blue">End</font> Sub