China DOS Union

How to create a shortcut using commands in Windows XP?

Internet shortcuts are in text format, you can refer to it.


───────────────── Moderator's Note ─────────────────
For the implementation of this solution, there are the following examples. Please refer to for details.
Example 1:
echo >>a.url echo URL=c:\windows\system32\notepad.exe >>a.url echo IconIndex=29 >>a.url echo IconFile=C:\windows\system32\shell32.dll >>a.url

Example 2:
@echo off if exist "%1.url" echo The link "%1.url" has been created! & goto :eof if exist "%~f2" echo The target "%~f2" does not exist! & goto :eof echo > "%1.URL" echo URL=%~f2 >> "%1.URL" echo IconIndex=0 >> "%1.URL" echo IconFile=%~f2 >> "%1.URL"
How to create a shortcut with batch processing?
http://www.cn-dos.net/forum/viewthread.php?tid=20183
───────────────── Moderator's Note ─────────────────


[ Last edited by willsort on 2006-5-11 at 17:46 ]

There is no command in Windows XP specifically for doing this. You can use other tools.
1. There is a command called shortcut.exe in Windows 95 or Nt 4.0 Resource Kit. (Recommended)
2. Third - party Shortcut.exe
3. Use vbs
-------------------------------------------------------------------------------------------
Dim WSHShell, fs
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
Function MakeDesktopShortcut( name, target )
Dim Shortcut,DesktopPath,StartupPath
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" & name & ".lnk")
Shortcut.TargetPath = target
StartupPath = fs.GetParentFolderName( target )
If fs.FolderExists( StartupPath ) then
Shortcut.WorkingDirectory = StartupPath
End If
Shortcut.Save
End Function

MakeDesktopShortcut "Shortcut to Notepad", "C:\Windows\Notepad.exe"
--------------------------------------------------------------------------------------------

You can refer to (url=http://www.cn-dos.net/forum/viewthread.php?tid=20183&fpage=1&highlight=%E5%BF%AB%E6%8D%B7%E6%96%B9%E5%BC%8F%2B3742668) or refer to the vbs method upstairs, and give a comment:
set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolders("Desktop") 'Get the desktop directory set oShellLink = WshShell.CreateShortcut(strDesktop & "\qq.lnk") 'Shortcut storage directory and name oShellLink.TargetPath = "C:\Program Files\Tencent\QQ\CoralQQ.exe" 'Target executable file oShellLink.WindowStyle = 1 'Run mode oShellLink.Hotkey = "CTRL+SHIFT+F" 'Hotkey oShellLink.IconLocation = "C:\Program Files\Tencent\QQ\QQ.exe, 0" 'Icon oShellLink.Description = "qq" 'Remark oShellLink.WorkingDirectory = "C:\Program Files\Tencent\QQ\" 'Start directory oShellLink.Save 'Create shortcut

You can try this under XP:

fsutil file createnew C:\test 0 rundll32.exe appwiz.cpl,NewLinkHere C:\test

The system will prompt to create a shortcut under C:\

[ Last edited by electronixtar on 2006-5-10 at 22:32 ]

How to create a shortcut to the "c:\setups" folder in sendto and add it to the right-click "Send to"?

Small tip, maybe it will help me a lot in the future

Originally posted by dst1213 at 2006-7-24 19:39:
How to create a shortcut to the "c:\setups" folder in sendto and add it to the right-click "Send To"?

Just put it in that folder

Bump