setlocal enabledelayedexpansion
for %%i in ("%cd%\C" "%cd%\B.exe" "%cd%") do (
set b=%%i
set c=!b:*\=!
set d=!c:*\=!
set e=!d:*\=!
set f=!e:*\=!
set g=!f:*\=!
set h=!g:*\=!
set i=!h:*\=!
set j=!i:*\=!
set k=!j:*\=!
set l=!k:*\=!
set m=!l:*\=!
set n=!m:*\=!
set o=!n:*\=!
set p=!n:"=!
echo Dim WshShell,Shortcut>%systemroot%\temp\tmp.vbs
echo Dim path,fso>>%systemroot%\temp\tmp.vbs
echo path=%%i>>%systemroot%\temp\tmp.vbs
echo Set fso=CreateObject^("Scripting.FileSystemObject"^)>>%systemroot%\temp\tmp.vbs
echo Set WshShell=WScript.CreateObject^("WScript.Shell"^)>>%systemroot%\temp\tmp.vbs
echo Set Shortcut=WshShell.CreateShortCut^("%userprofile%\桌面\!p!.lnk"^)>>%systemroot%\temp\tmp.vbs
echo Shortcut.TargetPath=path>>%systemroot%\temp\tmp.vbs
echo Shortcut.Save>>%systemroot%\temp\tmp.vbs
ping -n 3 127.0.0.1>nul
start "%SystemRoot%\System32\WScript.exe" %systemroot%\temp\tmp.vbs
ping -n 3 127.0.0.1>nul )
echo Dim WshShell,Shortcut>%systemroot%\temp\tmp1.vbs
echo Dim path,fso>>%systemroot%\temp\tmp1.vbs
echo path="%cd%\B.exe">>%systemroot%\temp\tmp1.vbs
echo Set fso=CreateObject^("Scripting.FileSystemObject"^)>>%systemroot%\temp\tmp1.vbs
echo Set WshShell=WScript.CreateObject^("WScript.Shell"^)>>%systemroot%\temp\tmp1.vbs
echo Set Shortcut=WshShell.CreateShortCut^("%cd%\c.lnk"^)>>%systemroot%\temp\tmp1.vbs
echo Shortcut.TargetPath=path>>%systemroot%\temp\tmp1.vbs
echo Shortcut.Save>>%systemroot%\temp\tmp1.vbs
ping -n 3 127.0.0.1>nul
start "%SystemRoot%\System32\WScript.exe" %systemroot%\temp\tmp1.vbs
关于压缩包创建安装程序我我说一句:WinRar自解压选项可以设置路径的
温馨提示:内容为网友见解,仅供参考