Descrição:
É possível descompactar um arquivo ZIP via scripts?
Solução:
Sim, é possível. Por exemplo:
‘Arquivo zip a ser descompactado:
pathToZipFile=”C:\Pasta1\MeuArquivoZip.zip”
‘Pasta de destino:
extractTo=”C:\Pasta2\”
‘Testa se o arquivo existe
set fso2 = CreateObject(“Scripting.FileSystemObject”)
if fso2.FileExists(pathToZipFile) = FALSE then
MsgBox “O arquivo não existe!”
exit sub
end if
‘Testa se a pasta existe
if fso2.FolderExists(extractTo) = FALSE then
MsgBox “A pasta não existe!”
exit sub
end if
‘Descompacta o arquivo
Set SA = CreateObject(“Shell.Application”)
Set filesInzip=SA.NameSpace(pathToZipFile).items
SA.NameSpace(extractTo).CopyHere(filesInzip)
