[已解决]如何只根据文件的扩展名获取关联程序位置 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

@echo off
if "%1"=="" echo 请把文件或文件夹拖到我身上，便可创建快捷方式到桌面上。&&pause>nul&&exit
set "a=%1"
set "name=%~n$a:1%"
set "ext=%~x$a:1%"
if "%ext%"=="" goto FOLDER

for /f "tokens=2 delims==" %%b in ('assoc %ext%') do (
for /f "tokens=2 delims==" %%c in ('ftype %%b') do set "d=%%c"
)
set "d=%d:"=%"
set "n=%d%"
set "n=%n:~-1%"
if "%n%"=="*" (set "d=%d:~0,-5%") else (set "d=%d:~0,-2%")
set "e=0"

if /i "%ext%"==".vbs" set "e=2"
if /i "%ext%"==".js" set "e=3"
if /i "%ext%"==".doc" set "d=%d:~0,-5%" && set "e=1"
if /i "%ext%"==".xls" set "e=1"
if /i "%ext%"==".ppt" set "e=1"
if /i "%ext%"==".bat" set "d=%SystemRoot%\system32\SHELL32.dll" && set "e=71"
if /i "%ext%"==".cmd" set "d=%SystemRoot%\system32\SHELL32.dll" && set "e=71"

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

:FOLDER
set "d=%SystemRoot%\system32\SHELL32.dll"
dir /a:d "%a%"|find.exe "DIR" >nul
if not errorlevel 1 (set "e=3") else (set "e=0")
goto URL