自动把需关联到qtp的Resources.Libraries添加进来

以下代码功能说明：把磁盘中的某个目录下的vbs文件全部关联到qtp工具中

foldername = InputBox("请输入QTPTEST文件夹", "QTP-testdir")

If foldername = "" Then

   wscript.quit

End If

msgbox "为QTP关联VBS文件完成,如下列表："&vbCrLf&SetResources(foldername)

'函数体

Function SetResources(strPath)

   Set fso_cfg = CreateObject("Scripting.FileSystemObject")

   Set App_cfg = CreateObject("QuickTest.Application")

    Set Folder = fso_cfg.GetFolder(strPath)

    set Files = oFolder.Files

    For Each oFile In Files

        If LCase(right(oFile.Path,3))=LCase("vbs") then

                            App_cfg.Test.Settings.Resources.Libraries.Add(oFile.Path)

                            s = s & oFile.Path & vbCrLf  '列举

                   end if

    Next

    Set Folders = oFolder.Subfolders

    For Each oFolder In Folders

         s = s & SetResources(oFolder.Path) '递归子文件夹

    Next

SetResources = s

    set fso_cfg=nothing

    set App_cfg=nothing

End function

注意事项：

1、上函数在vbs文件中，请双击执行，勿在qtp的action中执行，因为：This operation cannot be performed during a run session.（App_cfg.Test.Settings.Resources.Libraries.Add(oFile.Path)）