UFT/QTP HTML RESULTS FUNCTIONS
Public Function commonconfig (environmentFilePath) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(environmentFilePath)) Then '"D:\QTP POC\ENVIRONMENT\commonconfig.xml" Environment.LoadFromFile(environmentFilePath) else msgbox "Environment variable file is missing. Place the file and Try again !!" End If End Function ################################################################################# Public Function logger(filePath,message) Dim fso,f,wr Set fso = CreateObject("Scripting.FileSystemObject") If (fso.Fileexists(filePath&"log_"&DatePart("d",Date)&"_"&DatePart("m",Date)&"_"&DatePart("YYYY",Date)&".txt")) Then else fso.createtextfile (filePath&"log_"&DatePart("d",Date)&"_"&DatePart("m",Date)&"_"...