Question

用批处理写：把当前文件夹在桌面建立一个快捷方式

当前文件夹为A，其中有程序B、文件夹C. 假设建立批处理程序D。

要求：
运行D，则在桌面建立A、B、C的快捷方式
并且，使B在C中也创建一个快捷方式
上次那个ABC的也是我提的，你给回答了，不过好像有点问题。压缩包做的安装程序本来都是解压到压缩包所在文件的，用了你写的bat后,都成了解压到快捷方式所在文件夹了。这次只要回答正确，以后涨的分也都给你

Answer 1

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自解压选项可以设置路径的