Create a Main Folder,SubFolder in UFT and ZipAttachment to QC test

Function CreateMainFolder()
On Error Resume Next

'Dim strDrive, strfoldername,objFSO, objFolder

strDrive = "K:\QA\"

strfoldername="Automation_Results"

strPath= strDrive&strfoldername

Set FSO = CreateObject("Scripting.FileSystemObject")
Check = FSO.FolderExists(strPath)
Set FSO = Nothing
If Not Check Then

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strPath)

End If

End Function

Function CreateSubFolder(strPath)
On Error Resume Next

'Dim  strSubFile,objFSO, objFolder

''strSubFile = "Production_Result_"& Day(now) & "_" & month(now) & "_" & year(now) & "_"& hour(now) & "_" & minute(now)
''strNewpath=strPath& "\"&strSubFile

Set FSO = CreateObject("Scripting.FileSystemObject")
Check = FSO.FolderExists(strNewpath)
Set FSO = Nothing
If Not Check Then

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.CreateFolder(strNewpath)
End If

StrReportname= gbReportFilePath & "\TestResult_" & Day(now) & "_" & month(now) & "_" & year(now) & "_" & hour(now) & "_" & minute(now) &".html"

End Function

Function ZipAttachment(strNewpath)
On error resume next
      ZipAttachments = ""

    ' Declare the required variables
    Dim objZip, objSA, objFolder, zipFile, FolderToZip
    
    zipFile = strNewpath & ".zip"
    FolderToZip = strNewpath

    'Create the basis of a zip file.
    CreateObject("Scripting.FileSystemObject") _
    .CreateTextFile(zipFile, True) _
    .Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)

    ' Create the object of the Shell
    Set objSA = CreateObject("Shell.Application") 
    
    ' Add the folder to the Zip
    Set objZip = objSA.NameSpace(zipFile) 
    Set objFolder = objSA.NameSpace(FolderToZip) 
    objZip.CopyHere(objFolder.Items) 
    
    ZipAttachments = zipFile
    
    'return ZipAttachment

End function

Comments

Post a Comment

Popular posts from this blog

UFT File Types and File Extensions

QTP Script File            :    .mts  ( mercury test script) QTP Local Repository  :    .bdb (berkely database) Shared Repository        :    .tsr ( test shared repository) Load test configuration file : Default.cfg Load test configuration file  : Default.usp Test Settings File -------- Test.Tsp Test Parameters file ---- Parameters.mtr Input / Output Data Datatable  ( Excel file) ---Default.xls Resource.mtr- ------- contain the resources associated information like function library, recovery, shared repository(mercury test repository) Recovery Scenario   -------- .qrs Function library- ----------.vbs / .qfl / .txt Batch Test-- -------------  .mtb Action Template ---------  .mst ( mercury shared template) Virutal Object- ---------  .vot  ( virtual object template) lock.lck-- ----------- Created when the QTP test is open Environmental Variable Files ------- .txt, .ini, .xml
Read more

QTP/UFT Version History

What is QTP (UFT)? QuickTest Professional, popularly known by its acronym QTP is an automation testing tool originally from Mercury Interactive which was acquired by Hewlett Packard (HP) in 2006. QTP is primarily used for functional and regression automated testing. Using QTP, you can automate user actions on a web or client based computer application and test the same actions for different users, different data set, on various Windows operating systems and/or different browsers. Automation using QTP if planned and executed in a proper manner can save considerable time and money. With the release of version 11.50, QTP and Service Test became part of UFT 11.50 software. QTP is one of the most widely used automation testing tools in the market today with over 60% market share. Due to this reason, skilled QTP professionals are always in demand. Version history of QTP:- Astra Quicktest (First version) The first version of QTP was named Astra QuickTest and it was released by Mer
Read more

Synchronization in UFT

Image
When we automate the script most of the time we faced several issues with performance of application. sometimes application becomes slow in response sometimes fast. then how we show make sure that our script should run in irrespective of the application performance and response? all automation tools provide specific functions which handles these performance issue. UFT also has Synchronization mechanism to make sure that script will not fail. Lets discuss more about the Synchronization. There are 5 different ways to handle the synchronization. WaitProperty Exist Wait Sync(only for web based apps) Default Synchronization WaitProperty: WaitProperty is a method  which can be apply on any object in UFT. It takes the property name, Value and Timeout value as input to perform the sync. It is a dynamic wait, it means once the object is get visible/enable or state becomes true corresponding action gets performed. so it is highly recommended options. Example : lets put wa
Read more