创建快捷方式带路径参数总是出错求解？
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")求解？ 带路径盘符就出错 本帖最后由 窄口牛 于 2018-5-30 15:03 编辑
@echo
@echo
echo dim WshShell>>tmp.vbs
echo set WshShell = wscript.createobject("wscript.shell")>>tmp.vbs
echo strDesktop = WshShell.SpecialFolders("Desktop")>>tmp.vbs
echo set oShellLink = WshShell.CreateShortcut(strDesktop ^& "\CMD.lnk")>>tmp.vbs
echo oShellLink.TargetPath = "%comspec%">>tmp.vbs
echo oShellLink.Arguments = "R:\">>tmp.vbs
echo oShellLink.WindowStyle = ^1>>tmp.vbs
echo oShellLink.Hotkey = "Ctrl+Alt+N">>tmp.vbs
echo oShellLink.IconLocation = "%comspec%">>tmp.vbs
echo oShellLink.Description = "??">>tmp.vbs
echo oShellLink.WorkingDirectory = "%~dp0">>tmp.vbs
echo oShellLink.Save>>tmp.vbs
"%SystemRoot%\System32\WScript.exe" tmp.vbs
@del /f /s /q tmp.vbs
pause
快捷方式的参数有专门的设置参数：Arguments
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版 高手们，请搞一行命令，那些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") 我搜了几十页百度都楼上那样的批处理，一条一条写入vbs,再运行vbs生成快捷方式，最后删除vbs，
肯定没有一条命令来的方便简捷，那些绿化软件的批处理都是这样的一条命令！
看懂你的意思了
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") 谢谢你，你的命令是可以的，我看了你下面的那位提示，上午就解决了
快捷方式的参数有专门的设置参数：Arguments
页:
[1]