How to create a zip folder using VBScript

Below function will create the zip folder and hep you to upload big testing artifacts as attachment in ALM:

    ZipAttach = ""

    ' Declare the required variables
    Dim objZip, objSA, objFolder, zipFile, FolderToZip
   
    FolderToZip = strFoldertoZip
    zipFile = strFoldertoZip & ".zip"
    'FolderToZip = Environment.Value(<ResultFolder on local drive>)
   

    '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)

    wait(10)

    ZipAttach = zipFile

Comments

Post a Comment

Popular posts from this blog

UFT - Resolving scrolling issue if object is not visible

There are many times when an object gets the place changed based on the list getting longer on the same webpage, which creates the need to scroll down on the webpage for any automation script to perform any action on the object. Many times we try to resolve this issue using the below code. Set objShell=CreateObject("WScript.Shell") objShell.SendKeys "{PGDN}" But if the place is dynamic and the lists above that object gets bigger then it requires more page down which will be never ending story and requires maintenance every time. So to resolve this issue we can use the below code which will take the pointer focus to the object. Browser("<object properties>").Page("<object properties>").Webbutton("name:=Next").Object.Focus After this you can perform any action on the object.
Read more

What is candidate list in Smart Identification?

I also faced this question in one of interviews and didn't know what is candidate list even after working for more than 6 years in QTP. maybe be because most of the times we just find out how the tools is working and what are the functionalities we can use instead of looking into that particular functionalities process which you get to know only after reading the documentation. In smart identification we configure the base filter properties and optional filter properties for an object class, based on the base filter properties QTP creates a list of objects which has same base filter property value as of Test object. This list is called candidate list.  After list creation using base filter properties, QTP removes the object one by one from the list based on the each optional filter property values which are not matching with the test object saved in object repository. Then the last object which remains in the  list will be used by QTP to perform the required action. ...
Read more

What is the difference between Call to copy of Action and Call to existing action in QTP/UFT?

There are 2 ways in UFT/QTP where you can call the external actions in a new test. The first option is Call to copy of action, in this option the copy of the action will be copied over to the test and there will be no reference to the original action. All the resources of the action like repository or data table will also be copied. And if you do any changes in the action it will not be reflected in the other test. The second option is Call to existing action, in this option QTP just creates a call to the action but the resources will not be copied over. And user will not be able to edit the action in the new test. If you edit the action in the original test then those changes will be reflected in the tests wherever the action is called. There were some scenario's i have seen where testers have used the call to existing action but when the original test with action is shifted to some other location, they haven't changed the location in the test where the action is calle...
Read more