Quando a Microsoft lançou a atual geração de seu Windows Script Host , em 2002 , é disponibilizada 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 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 já que incluiu suporte nativo para comprimir e extrair arquivos zip , um script VBScript curto pode extrair o conteúdo de um arquivo zip em uma pasta. Instruções
1
Clique em "Iniciar " , "Todos os Programas ", " Acessórios ", " Bloco de notas" para abrir o Windows Notepad .
2
Copie e cole o seguinte código VBS na janela do bloco de notas:
Função Descompacte ( strFileName , strFolderName )
Dim Dim objShell
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
Set objFSO = CreateObject ( "Script . FileSystemObject " )
'Criar pasta para receber arquivos se ele doesn ' t já existem
Se Não objfso.FolderExists ( strFolderName ) Então objfso.CreateFolder strFolderName
'Use CopyHere extrair arquivos
objshell.NameSpace ( strFolderName ) . CopyHere objshell.NameSpace ( strFileName ) . Itens
Set objFSO = Nothing
Definir objShell = Nothing
< Função p> End of
Coloque o seu próprio nome de arquivo zip e nome da pasta dentro das aspas na linha seguinte
Descompacte "C: \\ Teste \\ teste.zip ", " C: \\ Teste \\ testando "
3
Edite a última linha para substituir seu próprio nome do arquivo zip e nome da pasta para os exemplos dados dentro das aspas . Você pode especificar uma pasta ou não existente. O script irá criar a pasta se ele ainda não existir .
4
Clique em "Arquivo ", " Salvar Como" para abrir a janela de diálogo Salvar como . Digite " extractzip.vbs " (sem as aspas) na caixa " Nome do arquivo " . Selecione "Todos os arquivos (*. *) " Do " Salvar como tipo" drop-down. Clique no botão "Salvar" para salvar o novo arquivo VBS .
5
Clique em "Iniciar " , "Documentos" para abrir uma janela do Windows Explorer. Navegue até a pasta onde você salvou o arquivo VBS no Passo 4. Clique duas vezes em extractzip.vbs para executar o script e extraia o arquivo zip para a pasta especificada.
