如何在VB6中正常执行包含双引号的命令行语句

问题根源 #

你的代码存在两个核心错误：

• VB6中给字符串变量赋值时，整个字符串内容必须用双引号包裹，你当前的command赋值写法不符合VB语法规则
• 字符串内容本身包含的双引号需要用两个连续的双引号转义，否则VB会将内部的双引号识别为字符串的结束标记，最终拼接出的命令格式错误，执行失败

方案1：直接转义拼接（最简便） #

直接按照VB的字符串转义规则修改代码即可正常执行：

Dim command As String
' 字符串内部的双引号用两个连续双引号转义，最终会被解析为单个双引号
command = "AlarmSummaryUtility 10 TP=1;PT=4 ""W h:m:s:F:p"" /export"
' 建议给完整命令再套一层双引号传给CMD，避免参数/路径含空格时解析错误
Shell "CMD.exe /c """ & command & """"
End Sub

方案2：封装通用转义函数（适合频繁拼接场景） #

如果经常需要处理带双引号的命令参数，可以封装通用函数简化写法，避免数双引号数错：

' 通用函数：给输入内容包裹双引号
Function AddQuote(str As String) As String
    ' Chr(34)对应双引号字符的ASCII码，写法更易读
    AddQuote = Chr(34) & str & Chr(34)
End Function

' 调用示例
Sub RunAlarmTool()
    Dim command As String
    command = "AlarmSummaryUtility 10 TP=1;PT=4 " & AddQuote("W h:m:s:F:p") & " /export"
    Shell "CMD.exe /c " & AddQuote(command)
End Sub

补充说明 #

如果你的AlarmSummaryUtility程序存放路径包含空格，也需要用同样的方法给程序路径包裹双引号，否则CMD会无法识别程序路径。

内容的提问来源于stack exchange，提问作者Jay