Calling a function in another file in VB Script

Question

I am using a Test Driver script (testset Driver.vbs) in QTP and in it I am trying to call a function in another file. I thought I could add this to the testset driver.vbs:

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

I call the IncludeAOA function which seems to work. But, when it gets to the ExecuteGlobal AR1 line it fails with an

Error: Invalid Character, Code: 800A0408.

Can anyone see what I missed?

Ekkehard.Horner · Accepted Answer · 2013-04-11 20:45:33Z

3

AR1 - i.e. the code in AOAReg.vbs - is to blame. Try to 'run' it with cscript AOAReg.vbs. If that does not show the error (including the line number), post the code or check the encoding of that file.

answered Apr 11, 2013 at 20:45

Ekkehard.Horner

38.8k2 gold badges50 silver badges101 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

James Craig Over a year ago

Since this was a test, I only put this in the AOAReg.vbs: Option Explicit msgbox("loaded")

Ekkehard.Horner Over a year ago

@JamesCraig - Then (a) reduce further: Just ' (comment); (b) check the encoding (utf8?, bom?); (c) dump/wscript.echo/msgbox AR1.

James Craig Over a year ago

Thanks! Looks like the file was corrupted somehow. I added the msgbox AR1 and got a couple funky characters back. So, I renamed that file and created a new one from scratch. This time it showed the text from the file! Thanks again!

Collectives™ on Stack Overflow

Calling a function in another file in VB Script

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related