TESTEVERYTHING (QTP,JMETER,SELENIUM,WEBDRIVER)

Function WindowsUnZip(sUnzipFileName, sUnzipDestination)         Set oUnzipFSO = CreateObject(“Scripting.FileSystemObject”)         If Not oUnzipFSO.FolderExists(sUnzipDestination) Then             oUnzipFSO.CreateFolder(sUnzipDestination)          End If           With CreateObject(“Shell.Application”)          .NameSpace(sUnzipDestination).Copyhere .NameSpace(sUnzipFileName).Items          End With          Set oUnzipFSO = Nothing End Function Function WindowsZip(sFile, sZipFile)      Set oZipShell = CreateObject(“WScript.Shell”)      Set oZipFSO = CreateObject(“Scripting.FileSystemObject”)    ...