How to extract a zip file and Can we hide the password that we enter in script ?

Hi Rajesh,

1.

Is there is any general way to extract without using 3rd party software?

Sub Test

  'Specifies the location of the zip file. 

  ZipFile="D:\Test\Test.zip" 

  'Specifies the folder the contents should be extracted to. 

  ExtractTo="D:\Test\"  

  'If the extraction location does not exist, create it. 

  Set fso = CreateObject("Scripting.FileSystemObject") 

  If NOT fso.FolderExists(ExtractTo) Then    

    fso.CreateFolder(ExtractTo) 

  End If  

  'Extract the contents of the zip file. 

  set objShell = CreateObject("Shell.Application") 

  set FilesInZip=objShell.NameSpace(ZipFile).items 

  objShell.NameSpace(ExtractTo).CopyHere(FilesInZip) 

  Set fso = Nothing 

  Set objShell = Nothing

End Sub

2.

Is there any way where we can encrypt this in script?

BTW, in the future, please create different forum threads for different questions. It will be easier for us to reply to them and for other users to search for the threads that may assist in solving their problems.

Thanks :)

Hi Rajesh,

the zip has password. so when i run the script i get a window popup asking for password.

I have only two suggestions:

1. Search the VBScript forums for another approach that can be used to extract files from password-protected archives. Maybe, there is a solution, but, unfortunately, I don't know it.

2. As an alternative, you can use an additional tool (like WinZip, 7-Zip or another) and create a script that will call it from the command line with the needed parameters. I know that you didn't want to use this approach, but I cannot suggest you any alternative.

Hi Ofer,

I guess, it's something like this:

  //Specifies the location of the zip file. 

  var ZipFile = "D:\\Test\\Test.zip"; 

  //Specifies the folder the contents should be extracted to. 

  var ExtractTo = "D:\\Test";

  // If the extraction location does not exist, create it. 

  var fso = new ActiveXObject("Scripting.FileSystemObject"); 

  if ( !fso["FolderExists"](ExtractTo) ) then    

    fso["CreateFolder"](ExtractTo); 

  //Extract the contents of the zip file. 

  var objShell = new ActiveXObject("Shell.Application"); 

  var FilesInZip = objShell["NameSpace"](ZipFile)["items"]();

  objShell["NameSpace"](ExtractTo)["CopyHere"](FilesInZip); 

  fso = null;

  objShell = null;

7za.exe x archive.zip -oOutDir -pPassword

// JScript

function Test()

{

  var strArc = "C:\\MyFile.zip";

  var strPassword = "password";

  var strOutDir = "C:\\MyFolder";



  var exitCode = UnzipWithPassword(strArc, strOutDir, strPassword);

  if (res != 0)

    Log.Error("An error occurred while unpacking. Exit code " + res);

}



function UnzipWithPassword(ArchiveFileName, OutputDir, Password)

{

  var str7za = "C:\\Work\\7za.exe"; // Replace with your 7za path

  var oShell = Sys.OleObject("WScript.Shell");



  var strCommand = aqString.Format("\"%s\" x \"%s\" -o\"%s\" -p\"%s\"", str7za, ArchiveFileName, OutputDir, Password);

  return oShell.Run(strCommand, 0, true);

}

Hi Irina

Related to this post, there's a way for Testcomplete to wait until the extraction process is finished?

Thanks!