Pouvez-vous compresser un fichier à partir de l'invite de commande en utilisant UNIQUEMENT la capacité intégrée de Windows pour compresser des fichiers?

J'ai un fichier de commandes qui génère un fichier texte. Je pensais que ce serait bien si je pouvais le télécharger aussi.

Cela sera utilisé dans un environnement incontrôlé. Par conséquent, je ne peux pas présumer de la présence de logiciels tiers tels que 7-Zip , etc. Cette fonctionnalité doit utiliser la fonctionnalité désormais intégrée de Windows pour compresser les fichiers.

Voici une solution tout fichier batch (une variante de mon autre réponse) qui va compresser un fichier nommé c:\ue_english.txtet le mettre dans 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

Un accès en écriture est requis pour le parent du dossier stocké dans TEMPDIR. Comme ce n'est souvent pas le cas, il TEMPDIRpeut être nécessaire de modifier la racine du lecteur C.

Un accès en écriture est également requis pour le dossier dans .batlequel se trouve le script (car il y génère un fichier).

Veuillez également noter que l'extension du fichier compressé doit être .zip. Toute tentative d'utilisation d'une autre extension peut entraîner une erreur de script. Au lieu de cela, générez le .zipfichier et renommez-le.

Il est possible de compresser des fichiers sans installation de logiciel supplémentaire (je l’ai testé). La solution est:

Exécutez ceci dans une fenêtre de ligne de commande pour créer un fichier ZIP nommé C:\someArchive.zipcontenant tous les fichiers du dossier C:\test3:

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

Où le fichier zip.vbscontient:

' 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

Je ne l'ai pas testé pour les chemins et les noms de fichiers contenant des espaces. Cela peut fonctionner si des guillemets sont placés autour des paramètres de ligne de commande.

Comment ça marche: la fonctionnalité zip intégrée à Windows (Windows XP et ultérieur?) Est exposée via des interfaces COM à partir du shell Windows, explorer.exe, c'est-à-dire la partie "Shell.Application". Cette interface COM peut être utilisée à partir d'un script VBScript , car un tel script peut accéder aux composants COM. Pour que le script soit complètement autonome, il crée un fichier ZIP vide pour commencer (vous pouvez également créer un fichier ZIP vide et le copier sur le système cible avec le script VBScript).

VBScript a été installé par défaut dans chaque version de bureau de Microsoft Windows depuis Windows 98.

CScript.exefait partie de Windows Script Host . Windows Script Host est distribué et installé par défaut sous Windows 98 et les versions ultérieures de Windows. Il est également installé si Internet Explorer 5 (ou une version ultérieure) est installé.

Si vous êtes prêt à utiliser PowerShell , les fonctionnalités zip sont disponibles dans .NET 2.0 (PowerShell est .NET). Voici un exemple ( source ) crédit à 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)}

Vous pouvez éliminer le risque de dépassement du délai imparti lors de la compression en recherchant l'existence de la fenêtre de dialogue de compression. Cette méthode gère également l’annulation par l’utilisateur de la fenêtre de compression.

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

Si vous parvenez à installer les outils du kit de ressources , vous trouverez un outil de ligne de commande appelé COMPRESS pouvant créer des fichiers d’archives compressés tels que 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

Plusieurs fichiers / répertoires avec code simplifié.

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

fichier 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

Ceci est une mutation de la réponse acceptée. Je fais une tonne de tâches d'automatisation sur des milliers de fichiers à la fois, je ne peux donc pas dormir pendant 2 secondes sans m'en soucier. J'ai glané la solution de contournement ici , qui est également similaire à la réponse de Jiří Kočara ici .

Cela entraînera un ping du dossier de destination toutes les 200 ms, ce qui correspond à peu près aussi rapidement que Microsoft le dit pour vérifier les mises à jour de 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

Voici ma tentative pour résumer les fenêtres de fonctionnalités intégrées pour la compression et la décompression - https://stackoverflow.com/questions/28043589/how-can-i-compres-zip-and-uncopress-unzip-files-and-folders -with-batch-f

avec quelques solutions données qui devraient fonctionner sur presque toutes les machines Windows.

En ce qui concerne shell.application et WSH, j’ai préféré le jScript, car il autorise un fichier batch / jScript hybride (avec l’extension .bat) qui ne nécessite pas de fichiers temporaires. .

Si vous utilisez Windows 8 ou Windows Server 2012, vous aurez PowerShell et .NET 4.5 pour pouvoir le faire:

zip.ps1 (utilisation :)-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 (si vous avez besoin d'un assistant pour appeler PowerShell, le répertoire est le premier argument et le nom du zip en second):

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

Windows 10 build 17063 ou version ultérieure est fourni avec tar.exe, qui est capable de fonctionner avec zip à partir de la ligne de commande.

tar.exe -xf archive.zip

ou créer des archives

tar.exe -cf Test.zip Test

La ligne de commande Windows fournit maintenant la commande compacte qui, pour autant que je sache, est native de Windows. Cela devrait répondre aux exigences demandées à moins que je manque quelque chose.