求大神帮忙看下这段VBS代码，运行报错缺少')',小白对VBS语法不熟悉，感谢！

[qq_42073136]

代码部分：

报错信息：

帮忙看下代码部分有没有别的问题，我需要将D:\KIOSK\&b&\Config\PrinterConfig.xml 文件中的<paperWillDo>true</paperWillDo>改为false ，帮忙添加一个条件语句，如果<paperWillDo>true</paperWillDo>本身就为false就不更改，如果为true就执行更改。
变量b是因为D:\KIOSK\Version.txt文本中存储了版本号，而我只需要更改对应版本号文件夹下的xml文件 ，假如当前版本2.0.0 version.txt 中的值就是2.0.0 那需要更改的xml文件路径则为D:\KIOSK\2.0.0\Config\PrinterConfig.xml

[孟子E章]

“D:\KIOSK" & b & "\2.0.0\Config\PrinterConfig.xml " 缺少双引号啊

[wcwtitxu]

Dim fso, openFile, a, b
Set fso = CreateObject("Scripting.FileSystemObject")

Set openFile = fso.OpenTextFile("D:\KIOSK\Version.txt", 1, True)
b = openFile.ReadAll()
openFile.Close

Set openFile = fso.OpenTextFile("D:\KIOSK\" & b & "\Config\PrinterConfig.xml", 1, True)
a = openFile.ReadAll()
openFile.Close

a = Replace(a, "<paperWillDo>true</paperWillDo>", "<paperWillDo>false</paperWillDo>")

Set openFile = fso.OpenTextFile("D:\KIOSK\" & b & "\Config\PrinterConfig.xml", 2, True)
openFile.Write a
openFile.Close

发代码时尽量贴文本出来，对着截图打这么多，累死人

[xiaocongzhi]

第6行路径缺少引号

[BUCTCLUB]

第六行第一个括号后面加上双引号