Load the .Vbs File

1) Executfile(" Path of file ")
2 ) Call Functionname(arg list)
3) Dim qtApp Dim qtLibraries
Set qtApp = CreateObject("QuickTest.Application")
Set qtLibraries = qtApp.Test.Settings.Resources.Libraries ' Get the libraries collection object
If qtLibraries.Find("C:sai1.vbs") = -1 Then ' If the library cannot be found in the collectionExecuteFile "C:sai1.vbs"
End If
Call test1()
Function In File Sai1.vbs Function test1()MsgBox "Hi Manish"End Function
4) sPath = "D:/Files/Functions.vbs"
Executfile (sPath)(OR) Executfile ("D:/Files/Functions.vbs")