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

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

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