什么不行?
option explicit
Dim arrScenarios()
Redim arrScenarios(-1)
addToArray arrScenarios, "simple_string_without_spaces"
addToArray arrScenarios, "any string containing spaces"
addToArray arrScenarios, """any string in double quotes"""
addToArray arrScenarios, chr(34) & "yna string in double quotes" & chr(34)
Sub AddToArray(vArray, Item)
Redim Preserve vArray(UBound(vArray)+1)
vArray(UBound(vArray))=Item
End Sub
Dim ii
For ii = 0 To UBound(arrScenarios)
Wscript.Echo "arrScenarios(" & CStr(ii) & ") = " & arrScenarios(ii)
Next
输出:
==>cscript \VB_scripts\SO\30317733.vbs
arrScenarios(0) = simple_string_without_spaces
arrScenarios(1) = any string containing spaces
arrScenarios(2) = "any string in double quotes"
arrScenarios(3) = "yna string in double quotes"
原来的答复:
我只能第二个参数是在addToArray
子程序加工哪种方式猜测,但尝试双所有内双引号如下:
addToArray arrScenarios, """Scenarios\BFTB Scenarios\Tutorial.cos"""
或添加前导,以这种方式尾随的:
addToArray arrScenarios, chr(34) & "Scenarios\BFTB Scenarios\Tutorial.cos" & chr(34)
_When我运行它,它无法找到file._你能澄清一下这意味着Tutorial.cos?你如何“运行它” - 你没有显示试图打开文件位置的代码。 – eurotrash