Você pode compactar um arquivo a partir do prompt de comando usando APENAS o recurso interno do Windows para compactar arquivos?

Eu tenho um arquivo em lotes que gera um arquivo de texto. Eu pensei que seria legal se eu pudesse fechar também.

Isso será usado em um ambiente não controlado, por isso não posso fazer suposições sobre a presença de produtos de software de terceiros, como 7-Zip , etc. Isso precisa usar o recurso agora integrado do Windows para compactar arquivos.

Aqui está uma solução de todos os arquivos em lote (uma variação da minha outra resposta) que irá zipar um arquivo chamado c:\ue_english.txt e colocá-lo em C:\someArchive.zip:

set FILETOZIP=c:\ue_english.txt

set TEMPDIR=C:\temp738
rmdir %TEMPDIR%
mkdir %TEMPDIR%
xcopy /s %FILETOZIP% %TEMPDIR%

echo Set objArgs = WScript.Arguments > _zipIt.vbs
echo InputFolder = objArgs(0) >> _zipIt.vbs
echo ZipFile = objArgs(1) >> _zipIt.vbs
echo CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" ^& Chr(5) ^& Chr(6) ^& String(18, vbNullChar) >> _zipIt.vbs
echo Set objShell = CreateObject("Shell.Application") >> _zipIt.vbs
echo Set source = objShell.NameSpace(InputFolder).Items >> _zipIt.vbs
echo objShell.NameSpace(ZipFile).CopyHere(source) >> _zipIt.vbs
echo wScript.Sleep 2000 >> _zipIt.vbs

CScript  _zipIt.vbs  %TEMPDIR%  C:\someArchive.zip

pause

O acesso de gravação é necessário para o pai da pasta armazenada em TEMPDIR. Como isso geralmente não é o caso da raiz da unidade C TEMPDIR pode ter que ser mudado.

O acesso de gravação também é necessário para a pasta .bat script está em (como ele gera um arquivo lá).

Além disso, observe que a extensão do arquivo compactado deve ser .zip. Tentativas de usar outra extensão podem resultar em um erro de script. Em vez disso, gere o .zip arquivo e renomeá-lo.

isto é possível zipar arquivos sem a instalação de qualquer software (eu testei). A solução é:

Execute isto em uma janela de linha de comando para criar um arquivo zip nomeado C:\someArchive.zip contendo todos os arquivos na pasta C:\test3:

CScript  zip.vbs  C:\test3  C:\someArchive.zip

Onde arquivo zip.vbs contém:

'Get command-line arguments.
Set objArgs = WScript.Arguments
Set FS = CreateObject("Scripting.FileSystemObject")
InputFolder = FS.GetAbsolutePathName(objArgs(0))
ZipFile = FS.GetAbsolutePathName(objArgs(1))

'Create empty ZIP file.
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)

Set objShell = CreateObject("Shell.Application")

Set source = objShell.NameSpace(InputFolder).Items

objShell.NameSpace(ZipFile).CopyHere(source)

'Required to let the zip command execute
'If this script randomly fails or the zip file is not complete, 
'just increase to more than 2 seconds
wScript.Sleep 2000

Eu não testei caminhos e nomes de arquivos contendo espaços. Pode funcionar se aspas são colocados em torno dos parâmetros da linha de comando.

Como funciona: a funcionalidade integrada de zip no Windows (Windows XP e posterior?) É exposta através COM interfaces do shell do Windows , explorer.exe - que é a parte "Shell.Application". Essa interface COM pode ser usada de um VBScript roteiro porque esse script pode acessar os componentes COM. Para tornar o script totalmente autocontido, cria um arquivo ZIP vazio para começar (também é possível criar um arquivo ZIP vazio e copiá-lo para o sistema de destino junto com o script VBScript).

O VBScript foi instalado por padrão em todos os desktops lançamento do Microsoft Windows desde o Windows 98.

CScript.exe faz parte do Windows Script Host. O Windows Script Host é distribuído e instalado por padrão no Windows 98 e versões posteriores do Windows. Ele também é instalado se o Internet Explorer 5 (ou uma versão posterior) estiver instalado.

Se você está aberto a usar PowerShell , os recursos zip estão disponíveis no .NET 2.0 (PowerShell é .NET). Aqui está um exemplo ( fonte ) crédito para Mike Hodnick :

########################################################
# out-zip.ps1
#
# Usage:
#    To zip up some files:
#       ls c:\source\*.txt | out-zip c:\target\archive.zip $_
#
#    To zip up a folder:
#       gi c:\source | out-zip c:\target\archive.zip $_
########################################################

$path = $args[0]
$files = $input

if (-not $path.EndsWith('.zip')) {$path += '.zip'} 

if (-not (test-path $path)) { 
  set-content $path ("PK" + [char]5 + [char]6 + ("$([char]0)" * 18)) 
} 

$ZipFile = (new-object -com shell.application).NameSpace($path) 
$files | foreach {$zipfile.CopyHere($_.fullname)}

Você pode eliminar o risco de tempo limite durante a compactação pesquisando a existência da janela de diálogo de compactação. Esse método também manipula o usuário cancelando a janela de compactação.

objShell.NameSpace(ZipFile).CopyHere(source)

' Wait for compression window to open
set scriptShell = CreateObject("Wscript.Shell")
Do While scriptShell.AppActivate("Compressing...") = FALSE   
   WScript.Sleep 500 ' Arbitrary polling delay
Loop  

' Wait for compression to complete before exiting script
Do While scriptShell.AppActivate("Compressing...") = TRUE   
   WScript.Sleep 500 ' Arbitrary polling delay
Loop

Se você conseguir instalar o Ferramentas do Kit de Recursos , você encontrará uma ferramenta de linha de comando chamada COMPRESS que pode criar arquivos compactados como o zip.

Microsoft (R) File Compression Utility  Version 5.00.2134.1
Copyright (C) Microsoft Corp. 1990-1999.  All rights reserved.

Compresses one or more files.

COMPRESS [-r] [-d] [-z] Source Destination
COMPRESS -r [-d] [-z] Source [Destination]

  -r            Rename compressed files.
  -d            Update compressed files only if out of date.
  -zx           LZX compression.
  -z            MS-ZIP compression.
  -zq[n]        Quantum compression and optional level
                (in range 1-7, default is 4).
  Source        Source file specification.  Wildcards may be used.
  Destination   Destination file | path specification.
                Destination may be a directory.
                If Source is multiple files and -r is not specified,
                Destination must be a directory.

'Keep script waiting until compression is done
Do Until objShell.NameSpace( ZipFile ).Items.Count = objShell.NameSpace( InputFolder ).Items.Count
    WScript.Sleep 200
Loop

Vários arquivos / diretórios com código simplificado.

cscript zip.vbs target.zip sourceFile1 sourceDir2 ... sourceObjN

arquivo zip.vbs

Set objArgs = WScript.Arguments
ZipFile = objArgs(0)

' Create empty ZIP file and open for adding
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
Set zip = CreateObject("Shell.Application").NameSpace(ZipFile)

' Add all files/directories to the .zip file
For i = 1 To objArgs.count-1
  zip.CopyHere(objArgs(i))
  WScript.Sleep 10000 'REQUIRED!! (Depending on file/dir size)
Next

Esta é uma mutação da resposta aceita. Eu faço uma tonelada de tarefas de automação em milhares de arquivos por vez, então eu não posso apenas dormir por 2 segundos e não me importar com isso. Eu peguei a solução alternativa Aqui , que também é semelhante à resposta de Jiří Kočara Aqui .

Isso fará com que a pasta de destino seja pingada a cada 200 ms, o que é aproximadamente o mais rápido que a Microsoft diz para verificar se há atualizações do FS.

Set parameters = WScript.Arguments
Set FS = CreateObject("Scripting.FileSystemObject")
SourceDir = FS.GetAbsolutePathName(parameters(0))
ZipFile = FS.GetAbsolutePathName(parameters(1))
CreateObject("Scripting.FileSystemObject").CreateTextFile(ZipFile, True).Write "PK" & Chr(5) & Chr(6) & String(18, vbNullChar)
Set shell = CreateObject("Shell.Application")
Set source_objects = shell.NameSpace(SourceDir).Items
Set ZipDest = shell.NameSpace(ZipFile)
Count=ZipDest.Items().Count
shell.NameSpace(ZipFile).CopyHere(source_objects)
Do While Count = ZipDest.Items().Count
    wScript.Sleep 200
Loop

Aqui está minha tentativa de resumir as capacidades internas das janelas para compressão e descompressão - https://stackoverflow.com/questions/28043589/how-can-i-compres-zip-and-uncopress-unzip-files-and-folders-with-batch-f

com algumas soluções dadas que devem funcionar em quase todas as máquinas windows.

No que diz respeito à shell.application e WSH eu preferia o jscript como ele permite um arquivo híbrido em lote / jscript (com extensão .bat) que não requer arquivos temporários.Eu coloquei os recursos de descompactação e zip em um arquivo e mais alguns recursos adicionais.

Se no Windows 8 ou no Windows Server 2012 você terá o PowerShell e o .NET 4.5, você pode fazer isso:

zip.ps1 (uso: -directory <directory to zip up> -name <zip name> ):

param (
    [string]$directory,
    [string]$name
)

Add-Type -Assembly System.IO.Compression.FileSystem
[System.IO.Compression.ZipFile]::CreateFromDirectory($directory, $name, [System.IO.Compression.CompressionLevel]::Optimal, $false)

zip.bat (se você precisar de um ajudante para chamar o PowerShell para você, o diretório será o primeiro argumento e o nome do zip será o segundo):

@Echo Off
powershell -ExecutionPolicy ByPass -Command "& '%~dpn0.ps1' -directory '%1' -name '%2'"

A linha de comando do Windows agora fornece o comando compact que, até onde eu sei, é nativo do Windows. Isso deve atender aos requisitos solicitados, a menos que eu tenha perdido alguma coisa.