VBScript错误 - 找不到路径;代码:800A004C，在运行QTP的驱动程序脚本时

Question

我正在通过VBScript为QTP运行驱动程序脚本，直到最近我才遇到问题。我正在使用VM运行此操作，直到最近我还没有发现此错误：找不到路径，代码：800A004C，它出现在线：58，char 15，这是我的可变strbaseFunctionPath正在使用。

我在单独的VM上使用了完全相同的脚本，没有任何问题。我有点新手。我读到，这与没有找到文件有关，但是一切都在那里，因为它创建了文件并从单独的脚本中拉出。同样，这是上周工作的。有什么想法吗？

    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:QuicktestHALScriptsHelperClear Cache and Cookies" &_
"C:QuicktestHALScriptsHAL Travel Agent HQLILO Travel Agent HQ" &_
"C:QuicktestHALScriptsHAL AcademyLILO HAL Academy" &_
"C:QuicktestHALScriptsHALFE-BE TestingOnline Check-in" &_
"C:QuicktestHALScriptsHALFE-BE TestingBook A Shore Excursion" &_
"C:QuicktestHALScriptsHALFE-BE TestingBook A Cruise Tour" &_
"C:QuicktestHALScriptsHALFE-BE TestingBook A Cruise" &_
"C:QuicktestHALScriptsHALLocalityFind CruisesFind Cruises - All Currencies - EN" &_
"C:QuicktestHALScriptsHALLocalityFind ToursFind Tours - All Currencies - EN" &_
"C:QuicktestHALScriptsHALLocalityContact UsValidate Contact Us - EN" &_
"C:QuicktestHALScriptsHALLocalitySpecial OffersValidate Special Offers - All Currencies - EN" &_
"C:QuicktestHALScriptsHALLocalityX-Forward-For ModifiedValidate Currency - EN" &_
"C:QuicktestHALScriptsHALMy AccountChange Email - EN" &_
"C:QuicktestHALScriptsHALMy AccountChange Password - EN" &_
"C:QuicktestHALScriptsHALMy AccountUpdate Account Info - EN" &_
"C:QuicktestHALScriptsHALMy AccountPassword Email Reset - EN" &_
"C:QuicktestHALScriptsHALRegistrationRegister New User - EN" &_
"C:QuicktestHALScriptsHALSite NavigationSite Navigation - EN" &_
"C:QuicktestHALScriptsHALLocalityFind CruisesFind Cruises - All Currencies - NL" &_
"C:QuicktestHALScriptsHALLocalityFind ToursFind Tours - All Currencies - NL" &_
"C:QuicktestHALScriptsHALLocalityContact UsValidate Contact Us - NL" &_
"C:QuicktestHALScriptsHALLocalitySpecial OffersValidate Special Offers - All Currencies - NL" &_
"C:QuicktestHALScriptsHALLocalityX-Forward-For ModifiedValidate Currency - NL" &_
"C:QuicktestHALScriptsHALMy AccountChange Email - NL" &_
"C:QuicktestHALScriptsHALMy AccountChange Password - NL" &_
"C:QuicktestHALScriptsHALMy AccountUpdate Account Info - NL" &_
"C:QuicktestHALScriptsHALMy AccountPassword Email Reset - NL" &_
"C:QuicktestHALScriptsHALRegistrationRegister New User - NL" &_
"C:QuicktestHALScriptsHALSite NavigationSite 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_RunnerFunctionsRunner.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

Answer 1

在您发布的代码中＃58是 Set vbsFile = Nothing，我猜是给您错误的行是行＃55

Dim vbsFile : Set vbsFile = fsObj.OpenTextFile(strBaseFunctionPath, 1, False)

我建议 print out strBaseFunctionPath并确保文件存在。

btw：下次说出哪一行产生错误，而不是倾倒整个文件并给出文件号。