@echo off
@echo.
@echo.
set /p p=将要创建快捷方式的文件放到这里来:
set url=%p%

echo [InternetShortcut] >%url:~0%.url
echo URL=%p% >>%url:~0%.url
echo IconIndex=0 >>%url:~0%.url
echo IconFile=%windir%\system32\cmd.exe>>%url:~0%.url
pause
复制代码

@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
复制代码