DOCUMENT:Q244677 25-FEB-2000 [foxpro] TITLE :HOWTO: Create a Desktop Shortcut with the Windows Script Host PRODUCT :Microsoft FoxPro PROD/VER:WINDOWS:3.0,3.0b,5.0,5.0a,6.0 OPER/SYS: KEYWORDS:kbScript kbMiscTools kbvfp300b kbvfp500a kbvfp600 kbGrpDSFox kbDSupport ====================================================================== ------------------------------------------------------------------------------- The information in this article applies to: - Microsoft Visual FoxPro for Windows, versions 3.0, 3.0b, 5.0, 5.0a, 6.0 ------------------------------------------------------------------------------- SUMMARY ======= The Microsoft Windows Script Host (WSH) is a tool that allows you to run Microsoft Visual Basic Scripting Edition and JScript natively within the base Operating System, either on Windows 95 or Windows NT 4.0. It also includes several COM automation methods that allow you to do several tasks easily through the Windows Script Host Object Model. The Microsoft Windows Script Host is integrated into Windows 98 and Windows 2000. It is available for Windows NT 4.0 from within the Windows NT 4.0 Option Pack. It is also available for download from: http://www.msdn.microsoft.com/scripting MORE INFORMATION ================ This program demonstrates how to use the Windows Script Host to create a shortcut on the Windows Desktop. In order to run this example, you must have the Windows Script Host installed on your computer. To run one of these examples, copy the code below into a new program file and run it. Example 1 WshShell = CreateObject("Wscript.shell") strDesktop = WshShell.SpecialFolders("Desktop") oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Sample.lnk") oMyShortcut.WindowStyle = 3 &&Maximized 7=Minimized 4=Normal oMyShortcut.IconLocation = "C:\myicon.ico" OMyShortcut.TargetPath = "%windir%\notepad.exe" oMyShortCut.Hotkey = "ALT+CTRL+F" oMyShortCut.Save Example 2 (Add a command line argument) WshShell = CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") oMyShortCut= WshShell.CreateShortcut(strDesktop+"\Foxtest.lnk") oMyShortCut.WindowStyle = 7 &&Minimized 0=Maximized 4=Normal oMyShortcut.IconLocation = home()+"wizards\graphics\builder.ico" oMyShortCut.TargetPath = "c:\Program Files\Microsoft Visual Studio\VFP98\vfp6.exe" oMyShortCut.Arguments = '-c'+'"'+Home()+'config.fpw'+'"' oMyShortCut.WorkingDirectory = "c:\" oMyShortCut.Save Example 3 (Add a URL Shortcut to the desktop) WshShell = CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") oUrlLink = WshShell.CreateShortcut(strDesktop+"\Microsoft Web Site.URL") oUrlLink.TargetPath = "http://www.microsoft.com" oUrlLink.Save Please note that all methods must be passed valid parameters for the shortcut to be created. No error appears if one of the parameters is incorrect. REFERENCES ========== The following references are available at: http://www.msdn.microsoft.com/scripting/ White paper: Windows Script Host: A Universal Scripting Host for Scripting Languages Technical Paper: Windows Script Host Programmer's Reference Additional query words: ====================================================================== Keywords : kbScript kbMiscTools kbvfp300b kbvfp500a kbvfp600 kbGrpDSFox kbDSupport Technology : kbVFPsearch kbAudDeveloper kbVFP300 kbVFP300b kbVFP500 kbVFP600 kbVFP500a Version : WINDOWS:3.0,3.0b,5.0,5.0a,6.0 Issue type : kbhowto ============================================================================= THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY. Copyright Microsoft Corporation 2000.