Board logo

标题: [问题求助] [已解决]VBS生成桌面快捷方式，win7不能用求解！ [打印本页]
作者: a87750530    时间: 2013-5-18 19:56     标题: [已解决]VBS生成桌面快捷方式，win7不能用求解！

本帖最后由 a87750530 于 2013-5-19 16:09 编辑

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

  2. >"2.vbs" echo Set WshShell = WScript.CreateObject("WScript.Shell")

  3. >>"2.vbs" echo strDesktop = WshShell.SpecialFolders("AllUsersDesktop")

  4. >>"2.vbs" echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\小工具.lnk") 

  5. >>"2.vbs" echo oShellLink.TargetPath = "%~dp0\小工具.bat"  

  6. >>"2.vbs" echo oShellLink.WindowStyle = 1

  7. >>"2.vbs" echo oShellLink.Hotkey = ""  

  8. >>"2.vbs" echo oShellLink.IconLocation = "%~dp0\03.ico, 0" 

  9. >>"2.vbs" echo oShellLink.Description = ""

  10. >>"2.vbs" echo oShellLink.WorkingDirectory = "%~dp0\小工具.bat"

  11. >>"2.vbs" echo oShellLink.Save

  12. call "2.vbs"
复制代码
xp下没有问题，win下就出错
作者: apang    时间: 2013-5-18 22:14

本帖最后由 apang 于 2013-5-18 22:52 编辑

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

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



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2