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

李世洪

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

1. Set wshell=CreateObject("WScript.Shell")
   
2. wshell.Run """C:Program Files360360se360se.exe""",5,True
   
3. Set wshell = Nothing

复制代码

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

1. temp="C:Program Files360360se3360se.exe"
   
2. path = Chr(34) & temp & Chr(34)
   
3. Set wshell=CreateObject("WScript.Shell")
   
4. wshell.Run path,1,True
   
5. Set wshell = Nothing

复制代码

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

1. Public Const vbQuote = """"
   
2. temp="C:Program Files360360se3360se.exe"
   
3. path = vbQuote & temp & vbQuote
   
4. Set wshell=CreateObject("WScript.Shell")
   
5. wshell.Run path,1,True
   
6. Set wshell = Nothing

复制代码

一些解释：

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

shinerain

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

007008007

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