newxso

在不用第三方工具情况下能用批处理来创建快捷方式，真是绝招。如果把代码简单地改一下就可创建快捷方式到桌面上：

@echo off
rem 把文件或文件夹拖到我身上即可
set "a=%1"
set "name=%~nx$a:1%"
echo [InternetShortcut] >"%userprofile%\桌面\%name%.url"
echo URL="%a%" >>"%userprofile%\桌面\%name%.url"
echo IconIndex=19 >>"%userprofile%\桌面\%name%.url"
echo IconFile=%SystemRoot%\system32\SHELL32.dll >>"%userprofile%\桌面\%name%.url"
exit
复制代码

再改进一下，快捷方式图标与关联程序相同：

@echo off
rem 把文件或文件夹拖到我身上即可创建快捷方式到桌面上
set "a=%1"
set "name=%~n$a:1%"
set "ext=%~x$a:1%"
if "%ext%"=="" goto FOLDER
if "%ext%"==".bat" goto BAT
if "%ext%"==".cmd" goto BAT
for /f "tokens=2 delims==" %%b in ('assoc %ext%') do (
  for /f "tokens=2 delims==" %%c in ('ftype %%b') do set "d=%%c"
)
set e=%d:~0,-5%
set f=0

:URL
echo [InternetShortcut] >"%userprofile%\桌面\%name%.url"
echo URL="%a%" >>"%userprofile%\桌面\%name%.url"
echo IconIndex=%f% >>"%userprofile%\桌面\%name%.url"
echo IconFile=%e% >>"%userprofile%\桌面\%name%.url"
exit

:FOLDER
set e=%SystemRoot%\system32\SHELL32.dll
set f=3
goto URL

:BAT
set e=%SystemRoot%\system32\SHELL32.dll
set f=71
goto URL
复制代码

[ 本帖最后由 newxso 于 2008-11-30 20:40 编辑 ]