Function Name: Set_Path()
#
'# Description: To retrive the
path
#
'# Input Parameters: None
#
'# Return Values: None
#
'##################################################################################################################################################
Public Function Set_Path()
Dim str_Test_Dir
Dim arr_elements
Dim int_elmt_count
Root_Dir = ""
' Retive the path of the folder in which the test is locateed
Test_Dir = Environment("TestDir")
arr_elements = split(Test_Dir,"\",-1)
int_elmt_count = ubound(arr_elements)
For lc = 0 to int_elmt_count-2
Root_Dir = Root_Dir & arr_elements(lc) &"\"
Next
End Function
'##################################################################################################################################################
'# Function Name: Load_Config_Data()
#
'# Description: To retrive the path
'# Input Parameters: None
#
'# Return Values: None
#
'##################################################################################################################################################
'Initialization
Public Function Load_Config_Data()
str_Screenshot_Path = str_Parent_Dir&"TestResults\Images\"
str_Image_Path = str_Parent_Dir&"Images\"
str_Data_Path= str_Parent_Dir&"TestData\Input Data"
str_Lib_Path= str_Parent_Dir& "Libraries\"
str_GUI_Path = str_Parent_Dir& "ObjectRepository\"
str_Script_Path = str_Parent_Dir& "TestScripts\"
str_Result_Path = str_Parent_Dir& "TestResults\"
End Function
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
