[文件操作] 【已解决】批处理如何创建目标程序参数中带空格的快捷方式？

hbb

请问各位朋友，我想创建一个快捷方式，代码如下：

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\连接.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments=""VPN admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
复制代码

这个快捷方式可以成功创建。

但是我想修改参数:b.Arguments=""VPN admin 88888""中的VPN为"VPN 01"，最后想在快捷方式中呈现为C:\Windows\System32\rasdial.exe "VPN 01" admin 88888，代码如下：

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(a.SpecialFolders(""Desktop"") & ""\连接.lnk""):b.TargetPath=""%windir%\System32\rasdial.exe"":b.Arguments="""VPN 01" admin 88888"":b.WorkingDirectory=""%windir%\System32"":b.Save:close")
复制代码

以上参数多加个双引号创建不能成功，请朋友们指教下，如何修改参数可以增加双引号，谢谢！

pcl_test

b.Arguments=""""""VPN 01"""" admin 88888""

pcl_test

'&cls&cscript -nologo -e:vbscript "%~fs0"&pause&exit
Set a=CreateObject("WScript.Shell")
Set b=a.CreateShortcut(a.SpecialFolders("Desktop") & "\连接.lnk")
b.TargetPath="%windir%\System32\rasdial.exe"
b.Arguments="""VPN 01"" admin 88888"
b.WorkingDirectory="%windir%\System32"
b.Save
复制代码

pcl_test

//&cls&mshta "%~f0"&pause&exit
<script language=vbs>
Set a=CreateObject("WScript.Shell")
Set b=a.CreateShortcut(a.SpecialFolders("Desktop") & "\连接.lnk")
b.TargetPath="%windir%\System32\rasdial.exe"
b.Arguments="""VPN 01"" admin 88888"
b.WorkingDirectory="%windir%\System32"
b.Save
close()
</script>
复制代码

hbb

回复 4# pcl_test


    感谢版主热心回复，问题解决，谢谢！