QTP运行时报错

selftest

qtp运行时提示(Run Error)Error in library file.Your function library may not be valid.Do you want to continue running the test?

TIB

库文件有语法错误，或者是文件格式不对

selftest

谢谢大家的帮助，这个问题我找到了答案，在菜单栏file下面单击settings子菜单项，在打开的新窗口中有一个resources的选项卡，里面是维护function libraries的，之前我那个报错是因为这里的文件路径没有维护好

yahuu

file>>settings>>Properties>>Generate Script...

点击这个按钮之后，就可以生成你的qtp环境设置的一个vbs文件，以后只要维护它就可以，只要你记得有这个文件要维护，那么基本不会出这样的错了。
比如我导出来我的就是：

1. Dim App 'As Application
   
2. Set App = CreateObject("QuickTest.Application")
   
3. App.Launch
   
4. App.Visible = True
   
5. App.Test.Settings.Launchers("Web").Active = False
   
6. App.Test.Settings.Launchers("Web").Browser = "IE"
   
7. App.Test.Settings.Launchers("Web").Address = "http://newtours.mercury.com "
   
8. App.Test.Settings.Launchers("Web").CloseOnExit = True
   
9. App.Test.Settings.Launchers("Windows Applications").Active = False
   
10. App.Test.Settings.Launchers("Windows Applications").Applications.RemoveAll
    
11. App.Test.Settings.Launchers("Windows Applications").RecordOnQTDescendants = True
    
12. App.Test.Settings.Launchers("Windows Applications").RecordOnExplorerDescendants = False
    
13. App.Test.Settings.Launchers("Windows Applications").RecordOnSpecifiedApplications = True
    
14. App.Test.Settings.Run.IterationMode = "rngAll"
    
15. App.Test.Settings.Run.StartIteration = 1
    
16. App.Test.Settings.Run.EndIteration = 1
    
17. App.Test.Settings.Run.ObjectSyncTimeOut = 20000
    
18. App.Test.Settings.Run.DisableSmartIdentification = False
    
19. App.Test.Settings.Run.OnError = "Dialog"
    
20. App.Test.Settings.Resources.DataTablePath = "<Default>"
    
21. App.Test.Settings.Resources.Libraries.RemoveAll
    
22. '下面两行是我随便引入的两个vbs文件地址，这就是你说的Resources，如果还需要，再加行就可以。
    
23. App.Test.Settings.Resources.Libraries.Add("E:\NVSdoc\VBS\Install.vbs")
    
24. App.Test.Settings.Resources.Libraries.Add("E:\NVSdoc\VBS\Stop.vbs")
    
25. App.Test.Settings.Web.BrowserNavigationTimeout = 60000
    
26. App.Test.Settings.Web.ActiveScreenAccess.UserName = ""
    
27. App.Test.Settings.Web.ActiveScreenAccess.Password = ""

复制代码