Exécution AutoExport Résultats de la fonction UFT

Question

Je cours un script de test automatisé en utilisant UFT 12.52. Je me demande s'il existe un moyen d'exporter des résultats à partir d'une fonction dans le script UFT. L'idée est d'appeler la fonction et d'exporter les résultats de l'analyse.

Je peux le faire de l'extérieur en créant un fichier .vbs qui lance le script dans uft et exécute et exporte le résultat, mais je ne peux pas comprendre comment le faire à partir d'un script UFT en tant que fonction.

Vous trouverez ci-dessous mon code pour exporter les résultats en externe.

Merci

Dim qtApp 
Dim qtTest 
Dim qtResultsOpt 
Dim qtAutoExportResultsOpts 

Set qtApp = CreateObject("QuickTest.Application") 
qtApp.Launch 
qtApp.Visible = True 


qtApp.Options.Run.ImageCaptureForTestResults = "OnError" 

qtApp.Options.Run.RunMode = "Fast" 
qtApp.Options.Run.ViewResults = False 

qtApp.Open "Z:\D:\paperlessEnhancements\", True 


Set qtTest = qtApp.Test 
qtTest.Settings.Run.IterationMode = "rngIterations" 
qtTest.Settings.Run.StartIteration = 1 
qtTest.Settings.Run.EndIteration = 1 
qtTest.Settings.Run.OnError = "NextStep" 

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") 
qtResultsOpt.ResultsLocation = "C:\Tests\Test1\Res1" n 

Set qtAutoExportResultsOpts = qtApp.Options.Run.AutoExportReportConfig 
qtAutoExportResultsOpts.AutoExportResults = True 
qtAutoExportResultsOpts.StepDetailsReport = True 
qtAutoExportResultsOpts.DataTableReport = True 
qtAutoExportResultsOpts.LogTrackingReport = True 
qtAutoExportResultsOpts.ScreenRecorderReport = True 
qtAutoExportResultsOpts.SystemMonitorReport = False 
qtAutoExportResultsOpts.ExportLocation = 
"C:\Documents and Settings\All Users\Desktop" 
qtAutoExportResultsOpts.UserDefinedXSL = "C:\Documents and Settings\All 
Users\Desktop\MyCustXSL.xsl" 
qtAutoExportResultsOpts.StepDetailsReportFormat = "UserDefined" 
qtAutoExportResultsOpts.ExportForFailedRunsOnly = True 

qtTest.Run qtResultsOpt 

MsgBox qtTest.LastRunResults.Status 
qtTest.Close 
Set qtResultsOpt = Nothing 
Set qtTest = Nothing 
Set qtApp = Nothing 
Set qtAutoExportSettings = Nothing 

J'ai aussi essayé ceci:

Dim qtResultsOpt 
Dim qtAutoExportResultsOpts 


Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") 
qtResultsOpt.ResultsLocation = "C:\Temp\Notepad1" 
Set qtResultsOpt = Nothing 

Answer 1

@Lukeriggz: Joindre une bibliothèque de fonctions à tous votre script et la bibliothèque de fonction doit être appelée à la première place dans votre script (soit vous pouvez appeler les lignes dans votre fonction de bibliothèque actuelle, mais l'important est de placer l'attribut à la première place et de commencer par l'exécution). Le contenu de la bibliothèque doit être celui que vous avez montré le code à l'exception de l'instruction Ouvrir, exécuter et libérer les objets (principalement les instructions de configuration devraient être là). Cela rendra votre emplacement de résultat toujours pointé vers votre chemin désiré et vous pouvez voir les résultats. Alors que la configuration du script a le nom du script dans une variable pour créer le résultat le nom du fichier à agir est aussi dynamique

Une autre implémentation Nous pouvons facilement identifier où les résultats sont sauvegardés en utilisant la variable d'environnement intégrée. Donc, programme nous pouvons copier le dossier à l'aide d'objets système de fichiers

enter code here 

executionpath=Environment.Value("ResultDir") 
path_to_save_the_results= "Type your path where the results should be saved" 
fso.CopyFolder executionpath, path_to_save_the_results