Como extrair um arquivo zip com VBScript

Quando a Microsoft lançou a atual geração de seu Windows Script Host, em 2002, fez disponível para os desenvolvedores e administradores de sistema um ambiente de script poderosa e flexível. Combinado com um modelo de objeto acessível no WSH que permite que os programadores automatizar algumas das funcionalidades built-in do sistema operacional Windows, VBScript, também conhecido como Visual Basic Scripting Edition, pode executar tarefas simples, com apenas algumas linhas de código. Como o Windows XP, uma vez incluiu o suporte nativo para comprimir e extrair arquivos zip, um script VBScript curto possível extrair o conteúdo de um arquivo zip em uma pasta.

Clique "Começar", "Todos os programas", "Acessórios", "Bloco de anotações" para abrir o Windows Notepad.
Copie e cole o seguinte código VBS para a janela do Bloco de notas:
Função Descompacte (strFileName, strFolderName)
dim objShell
dim objFSO
`Criar Shell.Application para que possamos usar o método CopyHere
Definir objShell = CreateObject ("Shell.Application")
`Criar FileSystemObject para que possamos utilizar FolderExists e CreateFolder se necessário
Definir objFSO = CreateObject ("Scripting.FileSystemObject")
`Criar pasta para receber arquivos se ele doesn` t já existem

Se não for objfso.FolderExists (strFolderName) Então objfso.CreateFolder strFolderName
`Use CopyHere para extrair arquivos
objshell.NameSpace (strFolderName) .CopyHere objshell.NameSpace (strFileName) .Items
Definir objFSO = Nothing
Definir objShell = Nothing
End Function
Coloque o seu próprio nome de arquivo zip e pasta nome dentro das aspas na linha seguinte
Descompacte "C: Test Test.zip","C: Test Testing"
Editar a última linha para substituir seu próprio nome de arquivo zip e pasta nome para os exemplos dados dentro das aspas. Você pode especificar uma pasta existente ou não. O script irá criar a pasta se não existir.
Clique "Arquivo", "Salvar como" para abrir a janela de diálogo Salvar como. Digitar "extractzip.vbs" (Sem as aspas) na "Nome do arquivo" caixa. selecionar "Todos os arquivos (.)" de "Salvar como tipo" suspenso. Clique no "Salvar" botão para salvar o novo arquivo VBS.
Clique "Começar", "documentos" para abrir uma janela do Windows Explorer. Navegue até a pasta onde você salvou o arquivo VBS no passo 4. extractzip.vbs duplo clique para executar o script e extraia o arquivo zip para a pasta especificada.

De esta maneira? Compartilhar em redes sociais: