Hi
I want to unzip files in Vbscript in quite mode whts the code for tht.
i can unzip files with the following code but cant able to make it in sailent mode...
Function Unzip(strFileName,strFolderName)
Dim objshell
Dim objfso
' Create Shell.Application so we can use the CopyHere method
Set objshell = CreateObject("Shell.Application")
' Create FileSystemObject so we can use FolderExists and CreateFolder if necessary
Set objfso = CreateObject("Scripting.FileSystemObject")
' Create folder to receive files if it doesn' t already exist
If Not objfso.FolderExists(strFolderName) Then objfso.CreateFolder strFolderName
' Use CopyHere to extract files
objshell.NameSpace(strFolderName).CopyHere objshell.NameSpace(strFileName).Items
Set objfso = Nothing
Set objshell = Nothing
End Function
Unzip "D:\RST\JKS\project.zip","D:\Test"
Unzip Files in VB Script
Re: Unzip Files in vbscript
