创建快捷方式带路径参数总是出错求解？

2012jvnet

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\CMD.lnk""):b.TargetPath=""CMD.exe R:\"":b.WorkingDirectory=""%~dp0"":b.Save:close")
求解？

2012jvnet

带路径盘符就出错

窄口牛

1. @echo
   
2. @echo
   
3. echo dim WshShell>>tmp.vbs
   
4. echo set WshShell = wscript.createobject("wscript.shell")>>tmp.vbs
   
5. echo strDesktop = WshShell.SpecialFolders("Desktop")>>tmp.vbs
   
6. echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\CMD.lnk")>>tmp.vbs
   
7. echo oShellLink.TargetPath = "%comspec%">>tmp.vbs
   
8. echo oShellLink.Arguments = "R:">>tmp.vbs
   
9. echo oShellLink.WindowStyle = ^1>>tmp.vbs
   
10. echo oShellLink.Hotkey = "Ctrl+Alt+N">>tmp.vbs
    
11. echo oShellLink.IconLocation = "%comspec%">>tmp.vbs
    
12. echo oShellLink.Description = "??">>tmp.vbs
    
13. echo oShellLink.WorkingDirectory = "%~dp0">>tmp.vbs
    
14. echo oShellLink.Save>>tmp.vbs
    
15. "%SystemRoot%\System32\WScript.exe" tmp.vbs
    
16. @del /f /s /q tmp.vbs
    
17. pause
    

复制代码

Anson4

快捷方式的参数有专门的设置参数：Arguments

tt911

nircmd.exe cmdshortcut "~$folder.desktop$" "Switch Volume" mutesysvolume 2


FileCreateShortcut, Notepad.exe, %A_Desktop%\My Shortcut.lnk, C:\, "%A_ScriptFullPath%", My Description, C:\My Icon.ico, i
ahk版

2012jvnet

高手们，请搞一行命令，那些VBS的搞了好多行，不如一行简单
关键的是TargetPath目标"*.exe X:\Y"这样的目标带启动路径的无法生成快捷方式，
好像是那个双引号错了！
请帮忙！
mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\CMD.lnk""):b.TargetPath=""CMD.exe R:\"":b.WorkingDirectory=""%~dp0"":b.Save:close")

2012jvnet

我搜了几十页百度都楼上那样的批处理，一条一条写入vbs,再运行vbs生成快捷方式，最后删除vbs，
肯定没有一条命令来的方便简捷，那些绿化软件的批处理都是这样的一条命令！

窄口牛

看懂你的意思了

1. mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\CMD.lnk""):b.TargetPath=""CMD.exe"":b.Arguments = ""R:"":b.WorkingDirectory=""%~dp0"":b.Save:close")

复制代码

2012jvnet

谢谢你，你的命令是可以的，我看了你下面的那位提示，上午就解决了
快捷方式的参数有专门的设置参数：Arguments