[已解决]VBS怎样给变量加引号？

kingerpk

set fso=createobject("scripting.filesystemobject")
set script=fso.getfile(wscript.scriptname)  
set myfile=fso.createtextfile(script.parentfolder&"\1.vbs")  
myfile.close
set myfile=fso.opentextfile(script.parentfolder&"\1.vbs",2)
myfile.write("wscript.echo now")
set shell=createobject("wscript.shell")
wscript.sleep 500
p=script.parentfolder&"\1.vbs"
wscript.echo p
shell.run p

结果是"wscript.echo p"显示了文件的路径,但是要执行的时候却说找不到文件.
问题应该是没加引号,虽然直接shell.run "1.vbs"也可以,但还是好奇怎么样给一个存在变量里的值加引号?
望各位大侠指教.

[ 本帖最后由 kingerpk 于 2009-5-2 20:01 编辑 ]

pusofalse

1. Shell.run """" & p & """"

复制代码

newxso

也可以用 chr(34) 来表示引号：
p=chr(34)&script.parentfolder&"\1.vbs"&chr(34)
wscript.echo p
shell.run p

kingerpk

谢谢!!!!!!!!!!!!!!!!!!!!!!!