[问题求助] [已解决]VBS生成桌面快捷方式，win7不能用求解！

a87750530

如下面的代码，想给一个批处理生成桌面快捷方式，可是win7下不能生成，请教是不是因为桌面路径不对，导致程序不能运行，应该怎么调整？

@echo off
>"2.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")
>>"2.vbs" echo strDesktop = WshShell.SpecialFolders("AllUsersDesktop")
>>"2.vbs" echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\小工具.lnk") 
>>"2.vbs" echo oShellLink.TargetPath = "%~dp0\小工具.bat"  
>>"2.vbs" echo oShellLink.WindowStyle = 1
>>"2.vbs" echo oShellLink.Hotkey = ""  
>>"2.vbs" echo oShellLink.IconLocation = "%~dp0\03.ico, 0" 
>>"2.vbs" echo oShellLink.Description = ""
>>"2.vbs" echo oShellLink.WorkingDirectory = "%~dp0\小工具.bat"
>>"2.vbs" echo oShellLink.Save
call "2.vbs"COPY

xp下没有问题，win下就出错

a87750530

好的谢谢你！我测试一下，

apang

在win7的共用桌面创建快捷方式需要管理员权限
可以吧 AllUsersDesktop 改成 desktop，这样xp和win7通用
或者，win7下右键以管理员权限运行
另外，%~dp0\ 改成 %~dp0