Question

求一个批处理文件，实现自动创建某个程序的快捷方式

想做个A.bat文件，可以实现将和A.bat在同一目录下的B.exe创建个快捷方式到桌面，并自动重命名该快捷方式名称为C.lnk。也就是和右键发送后再重命名的效果是一样的。
读取B.exe的路径要设成相对路径，也就是我这个文件夹不管放在什么位置都可以执行命令。
对批处理命令一窍不通，就这么点分，谢谢各位！
1438002 照你写的执行了一下，对比和手工发送的快捷方式 还有一个区别，就是命令执行的快捷方式中起始位置是空的，程序在执行的时候会有错误 望解答……

Answer 1

@echo off
echo Dim WshShell,Shortcut>%temp%\a.vbs
echo Dim path,fso>>%temp%\a.vbs
echo path="%cd%\B.exe">>%temp%\a.vbs
echo Set fso=CreateObject^("Scripting.FileSystemObject"^)>>%temp%\a.vbs
echo Set WshShell=WScript.CreateObject^("WScript.Shell"^)>>%temp%\a.vbs
echo Set Shortcut=WshShell.CreateShortCut^("%userprofile%\桌面\C.lnk"^)>>%temp%\a.vbs
echo Shortcut.TargetPath=path>>%temp%\a.vbs
echo Shortcut.Save>>%temp%\a.vbs
start "%SystemRoot%\System32\WScript.exe" "%temp%\a.vbs"

%cd%的意思就是当前目录，不管在哪都有效

那就用这个：

@echo off
set pa=%userprofile%\桌面\C.url
echo ^[InternetShortcut^]>"%pa%"
echo URL=file:\\%cd%\B.exe>>"%pa%"
echo Modified=705EC2AA0B10CA0120>>"%pa%"
echo IconIndex=0 >>"%pa%"
echo IconFile=%cd%\B.exe>>"%pa%"

个人能力有限...

Answer 2

有错误，改一改

Dim WshShell,Shortcut
Dim path,fso
Set fso=CreateObject("Scripting.FileSystemObject")
Set WshShell=WScript.CreateObject("WScript.Shell")
path=WshShell.CurrentDirectory +"\B.exe"
Set Shortcut=WshShell.CreateShortCut("C:\Documents and Settings\wf\桌面\C.lnk" )
Shortcut.TargetPath=path
Shortcut.Save