VBScript错误-未找到路径；代码：800A004C，运行QTP的驱动程序脚本时

我正在通过VBScript运行QTP的驱动程序脚本，直到最近我才遇到问题。我在一个虚拟机上运行这个程序，直到最近我才发现这个错误：找不到路径，代码：800A004c，它出现在第58行，Char 15，这是我正在使用的变量strBaseFunctionPath

我在一个单独的虚拟机上使用完全相同的脚本，没有任何问题。我对VBScript有些陌生。我读到这与找不到文件有关，但一切都在那里，因为它创建了文件并从一个单独的脚本中提取。上周这又起作用了。有什么想法吗

    strEnvironment = "QA" 'QA,QA2,FEDP,STAGE,PROD,FO,TEMP
    strBuildNumber = "Build_12_44"
strProject = "HAL"
strSuite = "Full" 'Custom,Full,Smoke
bolTimeStampDate = True
bolAppendMode = False

'<-><-><-><-><-><-><-><-><-><-><-><-><-><-> TEST SUITE TESTS <-><-><-><-><-><-><-><-><-><-><-><-><-><-><->
strTestString = "C:\Quicktest\HAL\Scripts\Helper\Clear Cache and Cookies" &_
"C:\Quicktest\HAL\Scripts\HAL Travel Agent HQ\LILO Travel Agent HQ" &_
"C:\Quicktest\HAL\Scripts\HAL Academy\LILO HAL Academy" &_
"C:\Quicktest\HAL\Scripts\HAL\FE-BE Testing\Online Check-in" &_
"C:\Quicktest\HAL\Scripts\HAL\FE-BE Testing\Book A Shore Excursion" &_
"C:\Quicktest\HAL\Scripts\HAL\FE-BE Testing\Book A Cruise Tour" &_
"C:\Quicktest\HAL\Scripts\HAL\FE-BE Testing\Book A Cruise" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\Find Cruises\Find Cruises - All Currencies - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\Find Tours\Find Tours - All Currencies - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\Contact Us\Validate Contact Us - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\Special Offers\Validate Special Offers - All Currencies - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\X-Forward-For Modified\Validate Currency - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\My Account\Change Email - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\My Account\Change Password - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\My Account\Update Account Info - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\My Account\Password Email Reset - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\Registration\Register New User - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\Site Navigation\Site Navigation - EN" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\Find Cruises\Find Cruises - All Currencies - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\Find Tours\Find Tours - All Currencies - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\Contact Us\Validate Contact Us - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\Special Offers\Validate Special Offers - All Currencies - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\Locality\X-Forward-For Modified\Validate Currency - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\My Account\Change Email - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\My Account\Change Password - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\My Account\Update Account Info - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\My Account\Password Email Reset - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\Registration\Register New User - NL" &_
"C:\Quicktest\HAL\Scripts\HAL\Site Navigation\Site Navigation - NL"

testArray = Split (strTestString,"C:\Quicktest\")
'<-><-><-><-><-><-><-><-><-><-><-><-><-><-> END TEST SUITE TESTS <-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

'<-><-><-><-><-><-><-><-><-><-><-><-><-><-> TEST SUITE CONTROLLER <-><-><-><-><-><-><-><-><-><-><-><-><->
intBeginScript = 1
intEndScript = 29
'<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->

'<-><-><-><-><-><-><-><-><-><-><-><-><-><-> TEST RESOURCE PATHS <-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->
strBasePath = "C:\Quicktest\"
strBaseProjectPath = strBasePath & strProject
strBaseFunctionPath =  strBaseProjectPath & "\QTP_Runner\Functions\Runner.vbs"
'<-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-<-><-><-><-><-><-><-><-><-><-><-><-><-><->

'<-><-><-><-><-><-><-><-><-><-><-><-><-><-> OPEN FUNCTIONS FILE <-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><-><->
Dim fsObj : Set fsObj = CreateObject("Scripting.FileSystemObject")
Dim vbsFile : Set vbsFile = fsObj.OpenTextFile(strBaseFunctionPath, 1, False)
Dim myOtherScript : myOtherScript = vbsFile.ReadAll
vbsFile.Close
Set vbsFile = Nothing
Set fsObj = Nothing
ExecuteGlobal myOtherScript
RunTestSuite

strengenvironment=“QA”'QA、QA2、FEDP、阶段、产品、FO、温度
strBuildNumber=“构建12\u 44”
strProject=“HAL”
strSuite=“Full”自定义、满、冒烟
bolTimeStampDate=True
模式=假
“测试套件测试”
strTestString=“C:\Quicktest\HAL\Scripts\Helper\Clear Cache and Cookies”&_
“C:\Quicktest\HAL\Scripts\HAL旅行社总部\LILO旅行社总部”&_
“C:\Quicktest\HAL\Scripts\HAL Academy\LILO HAL Academy”&_
“C:\Quicktest\HAL\Scripts\HAL\FE-BE测试\在线签入”&_
“C:\Quicktest\HAL\Scripts\HAL\FE-BE Testing\Book Shore Touring”&_
“C:\Quicktest\HAL\Scripts\HAL\FE-BE Testing\Book巡游”&_
“C:\Quicktest\HAL\Scripts\HAL\FE-BE Testing\Book A Cruise”&_
“C:\Quicktest\HAL\Scripts\HAL\Location\Find Cruises\Find Cruises-所有货币-英语”&_
“C:\Quicktest\HAL\Scripts\HAL\Location\Find Tours\Find Tours-所有货币-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\Locality\Contact-Us\Validate Contact-Us-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\Location\Special Offers\Validate Special Offers-所有货币-英语”&_
“C:\Quicktest\HAL\Scripts\HAL\Locality\X-Forward-For Modified\Validate Currency-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\My Account\Change Email-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\My Account\Change Password-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\My Account\Update Account Info-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\My Account\Password电子邮件重置-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\Registration\Registrate New User-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\Site Navigation\Site Navigation-EN”&_
“C:\Quicktest\HAL\Scripts\HAL\Location\Find Cruises\Find Cruises-所有货币-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\Location\Find Tours\Find Tours-所有货币-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\Location\Contact Us\Validate Contact Us-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\Location\Special Offers\Validate Special Offers-所有货币-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\Locality\X-Forward-For Modified\Validate Currency-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\My Account\Change Email-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\My Account\Change Password-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\My Account\Update Account Info-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\My Account\Password电子邮件重置-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\Registration\Registrate New User-NL”&_
“C:\Quicktest\HAL\Scripts\HAL\Site Navigation\Site Navigation-NL”
testArray=Split（strTestString，“C:\Quicktest\”）
'结束测试套件测试
'测试套件控制器
intBeginScript=1
intEndScript=29
'
'测试资源路径
strbsepath=“C:\Quicktest\”
strBSeprojectPath=strBSepath和strProject
strBaseFunctionPath=strBaseProjectPath&“\QTP\u Runner\Functions\Runner.vbs”
“在你发布的代码行#58是
设置vbsFile=Nothing
，我猜给你错误的那行是第#55行

我建议
print
输出
strBaseFunctionPath
并确保文件存在

顺便说一句：下次说哪一行产生了错误会更有帮助，而不是转储整个文件并给出一个文件号。
谢谢，我会打印出来看看……实际上，如果你读了我在代码上面写的内容，那就是我问题的第3行，我在那里陈述了行错误：路径未找到，代码：800A004c，它出现在第58行，字符15。此外，我正在运行该代码的精确副本，它正在工作……@CJPowell您写道，它位于第58行，但除了计数之外，无法判断哪一行是第58行。在寻求帮助时，最好让那些想回答的人生活得更轻松，以提高他们这样做的动机。呃，消除那些人的评论。这是眼癌还是宇宙飞船操作员无敌舰队？
Dim vbsFile : Set vbsFile = fsObj.OpenTextFile(strBaseFunctionPath, 1, False)