sxxzhf 发表于 2017-7-16 12:08:52

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

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

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


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

temp="C:Program Files360360se3360se.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 Files360360se3360se.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码表中对应双引号


zhaofeng 发表于 2017-7-16 16:06:27

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

kittyxf 发表于 2017-7-16 16:29:46

可是,将"D:/our doc/doc 11-9-13.xls"赋给变量bl,怎样表达?
我试了试,没有成功。
a = Shell("excel ""& bl &""", vbNormalFocus)吗?
提示找不到。为什么?该怎样表达?
请指教。
页: [1]
查看完整版本: vbs中解决路径带空格的三种方法