Vbscript 如何在QTP中添加多个函数库文件

例如，我的框架中有20个vbs文件，位于C:\LIBS\ 我想删除所有已关联的vbs文件，并添加上述位置存在的所有20个vbs

我尝试使用下面的代码获取所有文件

通过这个，我可以看到所有的vbs文件。但是，我不确定如何使用这些文件将其与测试关联起来

---

提前感谢。

您可以使用LoadFunctionLibrary方法加载任何vbs文件

LoadFunctionLibrary“C:\LIBS\Library1.vbs”

您可以将其放置在所有文件上循环。您也可以这样做来加载多个库

LoadFunctionLibrary“C:\LIBS\Library1.vbs”、“C:\LIBS\Library2.vbs”

使用这两种方法之一，您必须将要运行的LoadFunctionLibrary代码放在任何测试代码之前。将此vbs文件与qtp脚本关联，或将其放在qtp脚本中的测试代码前面

---

这种方法称为函数库的动态加载。

另一种可以使用的方法是

Set QtAp = CreateObject("QuickTest.Application")
QtAp.Open "C:\Sometest"
Set QtLib = QtAp.Test.Settings.Resources.Libraries
QtLib.RemoveAll
QtLib.Add "filepath",-1
QtAp.Test.Run

---

在执行测试之前，必须运行此脚本（在driverscript中）。希望这对你有帮助。

嗨，希望这对你有帮助。。我刚修改了你的代码。看一看，谢谢

Set fso= CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\LIBS\")
Set fc = f.files
For Each singlefile in fc

    executeFile(singlefile.name) 

Next

或

它将关联您的所有库文件

Set fso= CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\LIBS\")
Set fc = f.files
For Each singlefile in fc

    executeFile(singlefile.name) 

Next

Set fso= CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\LIBS\")
Set fc = f.files

For Each singlefile in fc

    LoadFunctionLibrary (singlefile.name)

Next

Dim App 'As Application

Set App = CreateObject("QuickTest.Application")

Set fso= CreateObject("Scripting.FileSystemObject")

Set f = fso.GetFolder("C:\Documents and Settings\Administrator\Desktop\Function Lib\")

Set fc = f.files

  For Each singlefile in fc

  'msgbox singlefile.name

App.Test.Settings.Resources.Libraries.Add(singlefile)

 Next