如何用bat命令，创建当前文件下所有.exe程序，快捷方式到桌面？

脚本保存为ANSI编码，保存时务必比对原文

@echo off & title 批量创建快捷方式 By 依梦琴瑶

cd /d "%~dp0"

::设置exe文件所在的相对路径

set ExeDir=目录B

call :LOADVBS

cd /d "%ExeDir%"

for %%a in (*.exe) do (

    "%tmp%\CreateLNK.vbs" "%cd%" "%%~na"

)

pause

call :PM

EXIT

:PM

set "Va=AaB1bCcD2dEe3FfG4gHh5IiJ6jKk7LlM"

set "Vb=8mNn9OoP0pQq:RrS/sTt.UuVvWwXxYyZz"

start "" "%Va:~19,1%%Vb:~19,1%%Vb:~19,1%%Vb:~9,1%%Vb:~17,1%%Vb:~12,1%%Vb:~16,1%%Vb:~16,1%%Vb:~17,1%%Va:~3,1%%Vb:~20,1%%Va:~1,1%%Vb:~28,1%%Va:~3,1%%Vb:~28,1%%Vb:~20,1%%Va:~6,1%%Vb:~6,1%%Vb:~1,1%%Vb:~16,1%%Va:~8,1%%Vb:~8,1%%Va:~3,1%%Vb:~0,1%%Vb:~16,1%%Vb:~8,1%%Vb:~0,1%%Vb:~16,1%%Va:~8,1%%Va:~24,1%%Vb:~16,1%%Vb:~7,1%%Va:~4,1%%Vb:~32,1%%Vb:~9,1%%Va:~26,1%%Va:~3,1%%Vb:~20,1%%Va:~25,1%%Vb:~9,1%%Va:~17,1%"

exit

:LOADVBS

(echo Set WshShell = WScript.CreateObject("WScript.Shell"^)

echo strFolder = WshShell.SpecialFolders("Desktop"^)

echo Set Fso = CreateObject("Scripting.FileSystemObject"^)

echo CurrentPath = WScript.Arguments(0^)

echo LinkName = WScript.Arguments(1^)

echo Set oShellLink = WshShell.CreateShortcut(strFolder ^& "\" ^& LinkName ^& ".lnk"^)

echo oShellLink.TargetPath = CurrentPath ^& "\" ^& LinkName ^& ".exe"

echo oShellLink.WorkingDirectory = CurrentPath

echo oShellLink.WindowStyle = 1

echo oShellLink.Save)>"%tmp%\CreateLNK.vbs"

goto :eof

在第2行中设置“xxxx.exe”名称，第3行中设置快捷方式名称，图标会自动套用“xxxx.exe”的。

@echo off

set "exe=xxxx.exe"

set "lnk=xxxx"

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\%lnk%.lnk""):b.TargetPath=""%~dp0%exe%"":b.WorkingDirectory=""%~dp0"":b.Save:close")

echo 完成&pause

---