How to call function lib at run time from an action

[anilyad]

Maybe silly, but i have developed an automation framework where in i
need to call a Demo.qfl (runtime) from an ACTION. If i use the
following funcLibraryFile() , it fails to call since QTP doesnt know
which lib to check this function since qfl is not loaded atall. I can
not use Absolute file path.

Call funcLibraryFile("Demo.qfl")

My Sub is and i am using executeFile

Code:

sub funcLibraryFile(libFile)

       Set fso=CreateObject("Scripting.FileSystemObject")
       strTestPath=Environment.Value("TestDir")

       strBinPath=fso.GetAbsolutePathName(strTestPath & "..\\..\\..\\..\
\lib")
       strFileName=fso.BuildPath(strBinPath,libFile)

       If fso.FileExists(strFileName) Then
               executeFile(strFileName)
       else
               errNum=err.number
       End If

       Set fso=Nothing
end sub

Any ideas?

thanks-anil