用批处理来建立快捷方式

下面是批处理的代码，其实真正用到的是用vbs脚本来创建方式
只是把vbs脚本用批处理发送，然后再用批处理激活系统里的vsb脚本执行程序来调用通过批处理发送的代码，就是这么简单，大家好好体会一下吧。呵呵


@echo off
del tmp.vbs /s /q
cls
color 0a
title 忆林子--建立快捷方式
:enterFileName
cls
echo 注意：请在路径的两端加上单引号即 "
set /p fileName=[请输入要创建方式的文件或者目录的全路径]
if /i "%fileName%"=="" goto :enterFileName
if not exist %filename% cls & echo 你输入的目录或者文件名不存在，请重新输入 & pause & goto :enterFileName
cls
echo 例如 c:/test/我的快捷方式.lnk
echo 注意：
echo       最后面的 .lnk 不能省略
echo       这里的路径也要在两端加上单引号.
echo       并且在路径中不能包括系统变量。
echo.
set /p shortCutPath=[请输入将创建方式保存到的路径]
echo Dim WshShell,Shortcut>>tmp.vbs
echo Dim path,fso>>tmp.vbs
echo path=%fileName%>>tmp.vbs
echo Set fso=CreateObject("Scripting.FileSystemObject")>>tmp.vbs
echo Set WshShell=WScript.CreateObject("WScript.Shell")>>tmp.vbs
echo Set Shortcut=WshShell.CreateShortCut(%shortCutPath%)>>tmp.vbs
echo Shortcut.TargetPath=path>>tmp.vbs
echo Shortcut.Save>>tmp.vbs
"%SystemRoot%/System32/WScript.exe" tmp.vbs
del tmp.vbs /s /q
cls
if exist %shortCutPath% echo 快捷方式创建完毕... & pause>nul
if not exist %shortCutPath% echo 快捷方式创建失败,请重新操作... & pause>nul