Question

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

@echo off
color f0

echo 创建快捷方式
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\AAA.lnk""):b.TargetPath=""%~dp0\1\AAA.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"") & ""\BBB.lnk""):b.TargetPath=""%~dp0\2\BBB.exe"":b.WorkingDirectory=""%~dp0\"":b.Save:close") >nul 2>nul

上面的例子是将，1 文件夹内 的 AAA.exe 和 2 文件夹内的BBB.exe，分别发送快捷方式到桌面，并命名为AAA.Ink和BBB.lnk。

现在，我想：
①.将原本发送到桌面的AAA.Ink和BBB.lnk快捷方式，发送到某一个指定文件夹（命名为3文件夹）内（比如，和1文件夹同目录）
②.以文件夹的形式发送到桌面快捷方式（3.lnk），然后改变3.lnk这个以文件夹形式的快捷方式的图标（也是指定图标）。

Answer 1

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""文件夹3的完整路径\AAA.lnk""):b.TargetPath=""%~dp0\1\AAA.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=""%~dp0\2\BBB.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=""%~dp0\3""，实现不了)？？？

追答

你的3文件夹在哪里？和批处理一起吗？

追问

嗯，是的，如下图所示：

追答

根据你的内容，我写成这样，能完美创建

@echo off
cd /d %~dp0
echo 创建快捷方式
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~dp03\AAA.lnk""):b.TargetPath=""%~dp01\AAA.exe"":b.WorkingDirectory=""%~dp0"":b.Save:close") >nul 2>nul
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%~dp03\BBB.lnk""):b.TargetPath=""%~dp02\BBB.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