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