zip архивирование стандартными средствами windows xp #370197

Как из коммандной строки стандартными средствами заархивировать папку ?

видимо что то с rundll

когда узнаешь, напиши статью в здешнюю базу знаний...

средствами какой командной строки ?

cmd

как написать скрипт знаю

Открыть нотепад и понажимать кнопки? :-)

RunDll32.exe zipfldr.dll,RouteTheCall c:papka а как сделать papka.zip ?

создать пустой зип array(80,75,5,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0) и записывать в него как в обычную папку

лениво писать скрипт для командной строки, вот тебе код адинес, разбирай

Скрипт для командной строки: //************** ZIP.VBS start at next line ' ZIP.VBS manipulates ZIP file in command line. ' Usage: CScript.exe ZIP.VBS [-d|-e|-v] ZIPfile [files...] '    CScript.exe ZIP.VBS -a archive.zip 1.txt Option Explicit Dim arg Dim optind If WScript.Arguments.Count<1 Then WScript.Echo "Usage: CScript.exe ZIP.VBS [-d|-e|-v] ZIPfile [files...]" WScript.Quit End If arg=WScript.Arguments(optind) Select Case LCase(arg) Case "-a","-c" optind=optind+1 Call MakeZIP Case "-d" optind=optind+1 Call DeleteZIP Case "-e" optind=optind+1 Call ExtractZIP Case "-v","-l" optind=optind+1 Call ListZIP Case Else If optind=WScript.Arguments.Count-1 Then  Call ListZIP Else  Call MakeZIP End If End Select WScript.Quit Sub MakeZIP Dim fso Dim wShell Dim Shell Dim n Dim ie Dim ZIPfile Dim ZIPdata:ZIPdata="PK" & Chr & Chr & String(18,0) Dim file Dim Folder Dim FolderItem Dim dFolder If WScript.Arguments.Count<optind+2 Then WScript.Echo "Arguments Missing." WScript.Quit End If Set fso=CreateObject("Scripting.FileSystemObject") Set wShell=CreateObject("WScript.Shell") Set Shell=CreateObject("Shell.Application") For n=0 To 9 For Each ie In Shell.Windows  If Not ie.Busy Then   If ie.ReadyState=4 Then    If InStr(TypeName(ie.Document),"IShellFolderViewDual")=1 Then     Exit For    End If   End If  End If Next If Not IsEmpty(ie) Then Exit For If n=0 Then CreateObject("WScript.Shell").Run "explorer.exe",0,True WScript.Sleep 100 Next If IsEmpty(ie) Then WScript.Echo "Failed" WScript.Quit End If Set Shell=ie.Document.Application ZIPfile=fso.GetAbsolutePathName(WScript.Arguments(optind)) If UCase(fso.GetExtensionName(ZIPfile))<>"ZIP" Then WScript.Echo "Invalid Extension Name -",fso.GetExtensionName(ZIPfile) WScript.Quit End If If Not fso.FileExists(ZIPfile) Then fso.CreateTextFile(ZIPfile,False).Write ZIPdata End If Set dFolder=Shell.NameSpace(ZIPfile) For optind=optind+1 To WScript.Arguments.Count-1 file=fso.GetAbsolutePathName(WScript.Arguments(optind)) Set Folder=Shell.NameSpace(fso.GetParentFolderName(file)) Set FolderItem=Folder.ParseName(fso.GetFileName(file)) If FolderItem Is Nothing Then  WScript.Echo WScript.Arguments(optind),"- Not Found."  WScript.Quit End If dFolder.CopyHere FolderItem Next End Sub Sub ListZIP Dim fso Dim Shell Dim ZIPfile Dim Folder Dim FolderItem Dim k Dim COL:COL=8 Dim cols ReDim cols(COL) Dim rows Dim j If WScript.Arguments.Count<optind+1 Then WScript.Echo "Arguments Missing." WScript.Quit End If Set fso=CreateObject("Scripting.FileSystemObject") Set Shell=CreateObject("Shell.Application") ZIPfile=fso.GetAbsolutePathName(WScript.Arguments(optind)) If UCase(fso.GetExtensionName(ZIPfile))<>"ZIP" Then WScript.Echo "Invalid Extension Name -",fso.GetExtensionName(ZIPfile) WScript.Quit End If Set Folder=Shell.NameSpace(ZIPfile) ReDim rows(Folder.Items.Count) For k=0 To COL cols(k)=Folder.GetDetailsOf(,k) Next j=0 rows(j)=Join(cols,vbTab) For Each FolderItem In Folder.Items For k=0 To COL  Cols(k)=Folder.GetDetailsOf(FolderItem,k) Next j=j+1 rows(j)=Join(cols,vbTab) Next WScript.Echo Join(rows,vbCRLF) End Sub Sub DeleteZIP Dim fso Dim Shell Dim ZIPfile Dim Folder Dim FolderItem If WScript.Arguments.Count<optind+2 Then WScript.Echo "Arguments Missing." WScript.Quit End If Set fso=CreateObject("Scripting.FileSystemObject") Set Shell=CreateObject("Shell.Application") ZIPfile=fso.GetAbsolutePathName(WScript.Arguments(optind)) If UCase(fso.GetExtensionName(ZIPfile))<>"ZIP" Then WScript.Echo "Invalid Extension Name -",fso.GetExtensionName(ZIPfile) WScript.Quit End If Set Folder=Shell.NameSpace(ZIPfile) For optind=optind+1 To WScript.Arguments.Count-1 Set FolderItem=Folder.ParseName(WScript.Arguments(optind)) If FolderItem Is Nothing Then  WScript.Echo WScript.Arguments(optind),"- Not Found."  WScript.Quit End If ' FolderItem.InvokeVerb("delete") FolderItem.InvokeVerb("??(&D)") Next End Sub Sub ExtractZIP Dim fso Dim Shell Dim ZIPfile Dim Folder Dim FolderItem Dim dFolder If WScript.Arguments.Count<optind+1 Then WScript.Echo "Arguments Missing." WScript.Quit End If Set fso=CreateObject("Scripting.FileSystemObject") Set Shell=CreateObject("Shell.Application") ZIPfile=fso.GetAbsolutePathName(WScript.Arguments(optind)) If UCase(fso.GetExtensionName(ZIPfile))<>"ZIP" Then WScript.Echo "Invalid Extension Name -",fso.GetExtensionName(ZIPfile) WScript.Quit End If Set Folder=Shell.NameSpace(ZIPfile) Set dFolder=Shell.NameSpace(fso.GetAbsolutePathName("")) If WScript.Arguments.Count<optind+2 Then dFolder.CopyHere Folder.Items Else For optind=optind+1 To WScript.Arguments.Count-1  Set FolderItem=Folder.ParseName(WScript.Arguments(optind))  If FolderItem Is Nothing Then   WScript.Echo WScript.Arguments(optind),"- Not Found."   WScript.Quit  End If  dFolder.CopyHere FolderItem Next End If End Sub //************** ZIP.VBS end Запуск: CScript.exe zip.vbs test.zip test.txt Хм... работает! :-)

с окном експлорера никчему намутили

NtbackupАрхивация может выполняться из командной строки или пакетного файла с помощью команды ntbackup и различных параметров командной строки. Синтаксис ntbackup backup [systemstate] "@имя_файла_bks" /J {"имя_задания"} [/P {"имя_пула"}] [/G {"идентификатор_guid"}] [/T { "имя_ленты"}] [/N {"носитель"}] [/F {"имя_файла"}] [/D {"описание"}] [/DS {"имя_сервера"}] [/IS {"имя_сервера"}] [/A] [/V:{yes|no}] [/R:{yes|no}] [/L:{f|s|n}] [/M {тип_архива}] [/RS:{yes|no}] [/HC:{on|off}] [/SNAP:{on|off}] Параметры systemstate Указывает, что следует выполнить архивацию данных о состоянии системы. При выборе данного параметра будет установлен обычный или копирующий тип архивации. @имя_ bks_файла Указывает имя файла (с расширением bks) со списком файлов для архивации в данном задании архивации. Перед именем файла должен стоять символ @. Этот файл содержит сведения о файлах и папках, подлежащих архивации. Этот файл должен быть создан с помощью программы архивации с графическим интерфейсом. /J {"имя_задания"} Указывает имя задания, которое будет упоминаться в файле журнала. Обычно имя задания описывает файлы и папки, подлежащие архивации в данном задании архивации, а также содержит дату и время архивации. /P {"название_пула"} Указывает пул носителей, носитель из которого будет использован. Обычно это подпул пула носителей архивации, такой как 4-мм DDS. Если этот подпул был выбран, невозможно использовать параметры командной строки /A, /G, /F или /T. /G {"идентификатор_guid"} Добавляет или заменяет данные на ленте. Не следует использовать этот параметр совместно с параметром /P. /T {"имя_ленты"} Добавляет или заменяет данные на ленте. Не следует использовать этот параметр совместно с параметром /P. /N {"носитель"} Указывает новое имя ленты. Не следует использовать параметр /A совместно с этим параметром. /F {"имя_файла"} Путь и имя файла на логическом диске. Совместно с этим параметром не следует использовать следующие параметры: /P /G /T. /D {"описание"} Указывает метку для каждого архива. /DS {"имя_сервера"} Производит архивацию файла службы каталогов указанного сервера Microsoft Exchange. /IS {"имя_сервера"} Производит архивацию файла банка сообщений указанного сервера Microsoft Exchange. /A Производит архивацию с добавлением в архив. Совместно с этим параметром следует использовать параметр /G или /T. Не следует использовать этот параметр совместно с параметром /P. /V:{yes|no} Проверяет данные после архивации. /R:{yes|no} Ограничивает доступ к этой ленте одним владельцем или членами группы «Администраторы». /L:{f|s|n} Указывает тип файла журнала: f=полный, s=сокращенный, n=нет (файл журнала не создается). /M {тип_архива} Указывает тип архива. Этот параметр должен иметь одно из следующих значений: normal, copy, differential, incremental или daily. /RS:{yes|no} Производит архивацию перемещенных данных на съемных носителях. Параметр командной строки /RS не требуется для архивации локальной базы данных съемных носителей (эта база данных содержит заместители мест файлов удаленного хранилища). При архивации папки %systemroot% программа архивации автоматически архивирует и базу данных съемных носителей. /HC:{on|off} Использует при возможности аппаратное сжатие. /SNAP:{on|off} Указывает, является (on) или не является (off) архив снимком состояния тома. /M {тип_архива} Указывает тип архива. Этот параметр должен иметь одно из следующих значений: normal, copy, differential, incremental или daily. /? Отображает справку в командной строке.

так и сделаю

>ntbackup тогда уж makecab expand