Puoi comprimere un file dal prompt dei comandi utilizzando SOLO la funzionalità integrata di Windows per comprimere i file?

Ho un file batch che genera un file di testo. Ho pensato che sarebbe bello se potessi comprimerlo anche io.

Questo verrà utilizzato in un ambiente non controllato, quindi non posso fare ipotesi sulla presenza di prodotti software di terze parti come 7-Zip , ecc. Questo deve utilizzare la funzionalità integrata di Windows per comprimere i file.

Ecco una soluzione per tutti i file batch (una variante della mia altra risposta) che comprime un file denominato c:\ue_english.txte lo inserisce 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

È richiesto l'accesso in scrittura al genitore della cartella archiviata TEMPDIR. Dato che spesso non è così per la radice dell'unità C TEMPDIRpotrebbe essere necessario cambiare.

L'accesso in scrittura è necessario anche per la cartella in cui si trova lo .batscript (in quanto genera un file lì).

Inoltre, si noti che l'estensione del file compresso deve essere .zip. I tentativi di utilizzare un'altra estensione possono causare un errore di script. Invece, genera il .zipfile e rinominalo.

Si è possibile comprimere i file senza l'installazione di alcun software aggiuntivo (ho provato). La soluzione è:

Eseguilo in una finestra della riga di comando per creare un file ZIP denominato C:\someArchive.zipcontenente tutti i file nella cartella C:\test3:

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

Dove il file zip.vbscontiene:

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

' Create an 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

Non l'ho testato per percorsi e nomi di file contenenti spazi. Può funzionare se le virgolette sono inserite attorno ai parametri della riga di comando.

Come funziona: la funzionalità zip integrata in Windows (Windows XP e versioni successive?) È esposta attraverso le interfacce COM dalla shell di Windows, explorer.exe, ovvero la parte "Shell.Application". Questa interfaccia COM può essere utilizzata da uno script VBScript perché tale script può accedere ai componenti COM. Per rendere lo script completamente autonomo crea un file ZIP vuoto per iniziare (si potrebbe anche creare un file ZIP vuoto e copiarlo nel sistema di destinazione insieme allo script VBScript).

VBScript è stato installato per impostazione predefinita in ogni versione desktop di Microsoft Windows da Windows 98.

CScript.exefa parte di Windows Script Host . Windows Script Host è distribuito e installato per impostazione predefinita su Windows 98 e versioni successive di Windows. Viene installato anche se è installato Internet Explorer 5 (o versione successiva).

Se si è aperti all'uso di PowerShell , le funzionalità zip sono disponibili in .NET 2.0 (PowerShell è .NET). Ecco un esempio di credito ( fonte ) a 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)}

È possibile eliminare il rischio di timeout durante la compressione eseguendo il polling per l'esistenza della finestra di dialogo della compressione. Questo metodo gestisce anche l'annullamento dell'utente dalla finestra di compressione.

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 sei in grado di installare gli strumenti del Resource Kit , troverai uno strumento da riga di comando chiamato COMPRESS che può creare file di archivio compressi come 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

Più file / directory con codice semplificato.

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

file 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

Questa è una mutazione della risposta accettata. Faccio un sacco di attività di automazione su un massimo di migliaia di file alla volta, quindi non riesco a dormire solo per 2 secondi e non mi interessa. Ho raccolto la soluzione qui , che è anche simile alla risposta di Jiří Kočara qui .

Questo causerà il ping della cartella di destinazione ogni 200 ms, che è approssimativamente più veloce di quanto Microsoft dice di verificare la presenza di aggiornamenti di 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

Ecco un mio tentativo di riassumere le finestre delle funzionalità integrate per la compressione e la decompressione - https://stackoverflow.com/questions/28043589/how-can-i-compres-zip-and-uncopress-unzip-files-and-folders -con-batch-f

con alcune soluzioni fornite che dovrebbero funzionare su quasi tutti i computer Windows.

Per quanto riguarda shell.application e WSH ho preferito jscript in quanto consente un file batch / jscript ibrido (con estensione .bat) che non richiede file temporanei. Ho inserito le funzionalità di decompressione e zip in un file più alcune altre funzionalità .

Se su Windows 8 o Windows Server 2012 avrai PowerShell e .NET 4.5, quindi puoi farlo:

zip.ps1 (utilizzo :)-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 hai bisogno di un aiuto per chiamare PowerShell per te, la directory è il primo argomento e il nome zip secondo):

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

La build 17063 o successiva di Windows 10 è fornita in bundle con tar.exe che è in grado di funzionare con zip dalla riga di comando.

tar.exe -xf archive.zip

o per creare un archivio

tar.exe -cf Test.zip Test

La riga di comando di Windows ora fornisce il comando compatto che, per quanto posso dire, è nativo di Windows. Ciò dovrebbe soddisfare i requisiti richiesti a meno che non mi sia perso qualcosa.