Чи можете ви скопіювати файл із командного рядка, використовуючи ТІЛЬКІ вбудовані можливості Windows для копіювання файлів?

У мене є пакетний файл, який виводить текстовий файл. Я думав, що було б добре, якби я міг також застебнути його.

Це використовуватиметься в неконтрольованому середовищі, тому я не можу робити припущення щодо наявності сторонніх програмних продуктів, таких як 7-Zip і т. Д. Для цього потрібно використовувати вбудовану можливість Windows для копіювання файлів.

Ось все рішення пакетного файлу (варіація моєї іншої відповіді), яке зіштовхне файл з назвою c:\ue_english.txtта помістить його 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

Доступ для запису потрібен батькові папки, що зберігається TEMPDIR. Оскільки це часто не відбувається для кореня накопичувача C, TEMPDIRможливо, доведеться змінити.

Доступ для запису також необхідний для папки, в якій .batзнаходиться сценарій (оскільки вона створює файл там).

Також зауважте, що для стисненого файлу повинно бути розширення .zip. Спроба використовувати інше розширення може призвести до помилки сценарію. Натомість генеруйте .zipфайл та перейменуйте його.

Це є можливість промайнути файлами без встановлення будь - якого додаткового програмного забезпечення (я тестував). Рішення таке:

Запустіть це у вікні командного рядка, щоб створити ZIP-файл, який C:\someArchive.zipмістить усі файли в папці C:\test3:

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

Де файл zip.vbsмістить:

' 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

Я не перевіряв це на шляхи та назви файлів, що містять пробіли. Це може спрацювати, якщо лапки ставитимуться навколо параметрів командного рядка.

Як це працює: вбудована функція zip в Windows (Windows XP та новіших версій?) Відкривається через COM- інтерфейси із оболонки Windows, explorer.exe - це частина "Shell.Application". Цей COM-інтерфейс можна використовувати із сценарію VBScript, оскільки такий сценарій може отримати доступ до компонентів COM. Щоб зробити скрипт повністю автономним, він створить порожній ZIP-файл для початку роботи (можна також створити порожній ZIP-файл і скопіювати його в цільову систему разом із сценарієм VBScript).

VBScript встановлений за замовчуванням у кожному випуску робочого столу Microsoft Windows з Windows 98.

CScript.exeє частиною хоста сценарію Windows . Хост сценаріїв Windows розповсюджується та встановлюється за замовчуванням у Windows 98 та новіших версіях Windows. Він також встановлюється, якщо встановлено Internet Explorer 5 (або більш пізню версію).

Якщо ви відкриті для використання PowerShell , можливості zip доступні в .NET 2.0 (PowerShell - це .NET). Ось приклад ( джерело ) кредиту Майка Ходніка :

########################################################
# 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)}

Ви можете усунути ризик вичерпання часу під час стиснення, опитуючи наявність діалогового вікна стиснення. Цей метод також обробляє скасування користувача з вікна стиснення.

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

Якщо ви зможете встановити Інструменти набору ресурсів , ви знайдете інструмент командного рядка під назвою COMPRESS, який може створювати стислі файли архіву, такі як 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

Кілька файлів / каталогів зі спрощеним кодом.

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

файл 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

Це мутація прийнятої відповіді. Я виконую безліч завдань з автоматизації на тисячах файлів одночасно, тому не можу просто спати дві секунди і не піклуватися про це. Я доклав вирішення цього питання , що також схоже на відповідь Іржі Кокара тут .

Це призведе до того, що папка призначення пінг буде кожні 200 мс, що приблизно так швидко, як Microsoft каже, щоб перевірити наявність оновлень 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

Ось моя спроба узагальнити вікна вбудованих можливостей для стиснення та стискання - https://stackoverflow.com/questions/28043589/how-can-i-compres-zip-and-uncopress-unzip-files-and-folders -із-партія-ф

з кількома заданими рішеннями, які повинні працювати майже на кожній машині Windows.

Що стосується shell.application та WSH, я віддав перевагу jscript, оскільки він дозволяє гібридний пакетний / jscript-файл (з розширенням .bat), який не вимагає тимчасових файлів. Я вклав функції розпакування та zip в один файл плюс ще кілька функцій .

Якщо в Windows 8 або Windows Server 2012 у вас будуть PowerShell і .NET 4.5, тож ви можете зробити це:

zip.ps1 (використання :)-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 (якщо вам потрібен помічник для виклику PowerShell для вас, каталог - це перший аргумент, а ім'я zip - друге):

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

Windows 10 build 17063 або пізнішої версії постачається з tar.exe, який може працювати з zip з командного рядка.

tar.exe -xf archive.zip

або створити архів

tar.exe -cf Test.zip Test

Тепер командний рядок Windows надає компактну команду, яка, наскільки я можу сказати, є власною для Windows. Це повинно відповідати вимогам, якщо я щось не пропустив.