Вызов функции в другом файле в VB Script

Я использую скрипт тестового драйвера (testet Driver.vbs) в QTP и в нем я пытаюсь вызвать функцию в другом файле. Я думал, что я мог бы добавить это к testset driver.vbs:Вызов функции в другом файле в VB Script

Function IncludeAOA 
Dim objFSO, objFile, AR1 

    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    Set objFile = objFSO.OpenTextFile("\\Server1\QTP Files\Community\Driver Scripts\AOAReg.vbs", 1) 
    AR1 = objFile.ReadAll 
    objFile.Close 
    ExecuteGlobal AR1 
End Function

я вызываю функцию IncludeAOA, которая, кажется, работает. Но, когда дело доходит до ExecuteGlobal AR1 линии он не с

Error: Invalid Character, Code: 800A0408.

Может кто-нибудь увидеть, что я пропустил?

источник

2013-04-11 James Craig

AR1 - то есть код в AOAReg.vbs - виноват. Попробуйте «запустить» его с cscript AOAReg.vbs. Если это не отображает ошибку (включая номер строки), отправьте код или проверьте кодировку этого файла.

источник

2013-04-11 20:45:33

Так как это было испытание, я только поставить это в AOAReg.vbs: Option Explicit MsgBox ("загружен") –

@JamesCraig - Тогда (а) уменьшить далее: Just '(комментарий); (b) проверить кодировку (utf8 ?, bom?); (c) dump/wscript.echo/msgbox AR1. –

Спасибо! Похоже, что файл был поврежден. Я добавил msgbox AR1 и получил пару фанковых персонажей. Итак, я переименовал этот файл и создал новый с нуля. На этот раз он показал текст из файла! Еще раз спасибо! –

Вызов функции в другом файле в VB Script

ответ

Смежные вопросы