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

Question

有人说我之前的问题难以理解，我现在制作了一张图片，需求都在图片里，请大家点开查看！

Answer 1

脚本保存为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

Answer 2

1
2
3
@Echo Off
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\1.lnk""):b.TargetPath=""%~dp01.bat"":b.WorkingDirectory=""%~dp0"":b.Save:close")
Pause
简单的,把此批处理和要创建快捷方式的1.bat放在一起就是可以创建快捷方式到桌面了,具体自行修改路径.或者说明如何能找到你所说的文件路径.
望采纳！

Answer 3

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行
/*&cls&echo off
rem 将当前目录下一个指定名称文件夹里的所有exe程序创建快捷方式到桌面
set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
set "folder=.\目录B"
if not exist "%folder%" (echo;"%folder%" 未找到&pause&exit)
for /f "delims=" %%a in ('dir /a-d-h/b/s "%folder%\*.exe"') do (
echo;"%%a"
cscript -nologo -e:jscript "%~f0" "%%a"
)
echo;%#% +%$%%$%/%_% %z%
pause
exit
*/
var fso=new ActiveXObject('Scripting.FileSystemObject');
var ws=new ActiveXObject('WScript.Shell');
var exefile=fso.GetFile(WSH.Arguments(0));
var lnkfile=ws.SpecialFolders('Desktop')+'\\'+exefile.Name+'.lnk';
var lnk=ws.CreateShortcut(lnkfile);
lnk.TargetPath=exefile;
lnk.WorkingDirectory=exefile.ParentFolder.Path;
lnk.Save();追问

提问修改了，请查看新的需求图

追答

按运行后窗口标题栏中的提示联系我

Answer 4

如何使用脚本宿主创建Windows快捷方式
WshShell = CreateObject("Wscript.shell")
strDesktop = WshShell.SpecialFolders("Desktop")
oMyShortcut = WshShell.CreateShortcut(strDesktop + "\Sample.lnk")
oMyShortcut.WindowStyle = 3 &&Maximized 7=Minimized 4=Normal
oMyShortcut.IconLocation = "C:\myicon.ico"OMyShortcut.TargetPath = "%windir%\notepad.exe"oMyShortCut.Hotkey = "ALT+CTRL+F"oMyShortCut.Save