跪求，批处理将快捷方式发往指定文件夹内！！！

跪求，批处理将快捷方式发往指定文件夹内！！！

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""文件夹3的完整路径AAA.lnk""):b.TargetPath=""%~dp01AAA.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close") >nul 2>nul

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""文件夹3的完整路径BBB.lnk""):b.TargetPath=""%~dp02BBB.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close") >nul 2>nul


mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""3.lnk""):b.TargetPath=""文件夹3的完整路径"":b.IconLocation=""图标完整路径"":b.Save:close") >nul 2>nul追问
首先谢谢你了，现在有一个疑问；
如上图修改了一下，前两步都是可以实现相对路径的，但第三步，也就是发来桌面的文件夹的快捷方式怎样实现相对路径(b.TargetPath=""%~dp03""，实现不了)？？？
追答你的3文件夹在哪里？和批处理一起吗？追问嗯，是的，如下图所示：

追答根据你的内容，我写成这样，能完美创建
@echo off
cd /d %~dp0
echo 创建快捷方式
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~dp03AAA.lnk""):b.TargetPath=""%~dp01AAA.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close") >nul 2>nul
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~dp03BBB.lnk""):b.TargetPath=""%~dp02BBB.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close") >nul 2>nul
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""3.lnk""):b.TargetPath=""%~dp03"":b.IconLocation=""%~dp0unistall.ico"":b.Save:close") >nul 2>nul
pause

%~dp0获取到的路径最后已经包含了一个斜杠，所以没必要在代码中再给它添加一个，但加了也是无妨的。所以上面我的能正常创建！至于你的为何不能，我就真搞不懂了。

追问首先感谢你，真心的，看了你下面的代码，试了一下，只需将我前面的发的代码中的(b.TargetPath=""%~dp0\3"")改成(b.TargetPath=""%~dp03"")就行了，加了“\”的快捷方式是“文件”，去掉后就是“文件夹”了。

最后再想你请教一下，如果这个"3"是发往开始菜单，这个应该怎么做！！！追答是开始菜单目录，还是开始菜单里面的程序目录？开始菜单目录就是点开始徽标后显示在最上面的那个，开始菜单程序目录就是点所有程序后显示的那些，第一种你只需把desktop改为Startmenu，第二种改为Programs

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息