vbs中解决路径带空格的三种方法

weiyingde

vbs中解决路径带空格的三种方法（转）
1、在应用程序前后分别加三个双引号，代码如下：

Set wshell=CreateObject("WScript.Shell")
wshell.Run  """C:\Program Files\360\360se\360se.exe""",5,True
Set wshell = Nothing


2、使用chr(34)对字符串加引号，代码如下：

temp="C:\Program Files\360\360se3\360se.exe"
path = Chr(34) & temp & Chr(34)
Set wshell=CreateObject("WScript.Shell")
wshell.Run path,1,True
Set wshell = Nothing


3、为了增加可读性，使用一种定义常量的方式，代码如下：

Public Const vbQuote = """"
temp="C:\Program Files\360\360se3\360se.exe"
path = vbQuote & temp & vbQuote
Set wshell=CreateObject("WScript.Shell")
wshell.Run path,1,True
Set wshell = Nothing





一些解释：

1.       因为vbs将双引号视为一个值的容器，所以你如果需要使用双引号作为一个值使用，那么需要在前后使用一个双引号来说明。
2.       而Chr(integer i)则是返回ascii码表中i对应的字符，34在ascii码表中对应双引号

http://blog.csdn.net/Anlegor/archive/2010/07/08/5721687.aspx

weiyingde

这种方式也是可行的：
a = Shell("excel ""D:/our doc/doc 11-9-13.xls""", vbNormalFocus)

weiyingde

可是，将"D:/our doc/doc 11-9-13.xls"赋给变量bl，怎样表达？
我试了试，没有成功。
a = Shell("excel ""& bl &""", vbNormalFocus)吗？
提示找不到。为什么？该怎样表达？
请指教。