AXForum  
Вернуться   AXForum > Microsoft Dynamics AX > DAX: Программирование
CRM
Забыли пароль?
Зарегистрироваться Правила Справка Пользователи Сообщения за день Поиск

 
 
Опции темы Поиск в этой теме Опции просмотра
Старый 07.02.2011, 18:03   #2  
sukhanchik is offline
sukhanchik
Administrator
Аватар для sukhanchik
MCBMSS
Злыдни
Лучший по профессии 2015
Лучший по профессии AXAWARD 2013
Лучший по профессии 2011
Лучший по профессии 2009
 
3,342 / 3563 (125) ++++++++++
Регистрация: 13.06.2004
Адрес: Москва
Посмотрите тут: http://blogs.msdn.com/b/daiken/archi...ar-gadget.aspx
Создание архива
PHP код:
function New-Zip
{    
        
param([string]$zipfilename)    
        
set-content $zipfilename ("PK" + [char]+ [char]+ ("$([char]0)" 18))    
        (
dir $zipfilename).IsReadOnly $false
}
 
usage: new-zip c:\demo\myzip.zip 
и распаковка:

PHP код:
function Extract-Zip
{    
param([string]$zipfilename, [string$destination)    
     if(
test-path($zipfilename))    
     {            
         
$shellApplication = new-object -com shell.application        
         $zipPackage 
$shellApplication.NameSpace($zipfilename)        
         
$destinationFolder $shellApplication.NameSpace($destination)        
         
$destinationFolder.CopyHere($zipPackage.Items())    
      }
}
 
usageextract-zip c:\demo\myzip.zip c:\demo\destination 
До кучи - добавление в архив:
PHP код:
function Add-Zip
{
    
param([string]$zipfilename)
    if(-
not (test-path($zipfilename)))
    {
        
set-content $zipfilename ("PK" + [char]+ [char]+ ("$([char]0)" 18))
        (
dir $zipfilename).IsReadOnly $false
    
}
    
$shellApplication = new-object -com shell.application
    $zipPackage 
$shellApplication.NameSpace($zipfilename)
    foreach(
$file in $input)
    {
             
$zipPackage.CopyHere($file.FullName)
             
Start-sleep -milliseconds 500
    
}
}
 
usagedir c:\demo\files\*.* -Recurse add-Zip c:\demo\myzip.zip 
И получение списка файлов:

PHP код:
function Get-Zip
{
    
param([string]$zipfilename)
    if(
test-path($zipfilename))
    {
        
$shellApplication = new-object -com shell.application
        $zipPackage 
$shellApplication.NameSpace($zipfilename)
        
$zipPackage.Items() | Select Path
    
}
}
 
usageGet-Zip c:\demo\myzip.zip 
__________________
Возможно сделать все. Вопрос времени

Последний раз редактировалось sukhanchik; 07.02.2011 в 18:11.
Теги
zip, архивирование

 

Похожие темы
Тема Автор Раздел Ответов Посл. сообщение
emeadaxsupport: AX 2009 Setup fails to install IIS Components on Windows Server 2008 R2 Blog bot DAX Blogs 0 12.01.2010 04:44
Dynamics AX Sustained Engineering: Microsoft Dynamics AX 4.0 and AX 2009 are compatible with Microsoft Windows 7 and Microsoft Windows Server 2008 R2 Blog bot DAX Blogs 0 22.09.2009 04:06
emeadaxsupport: Group policy setting "System Objects: Default owner for objects created by members of the administrators group" is missing on Windows Server 2008 Blog bot DAX Blogs 2 28.08.2009 02:14
jinx: Microsoft Dynamics AX 2009, Windows Server 2008 und SQL Server 2008 Blog bot DAX auf Deutsch 0 12.10.2008 20:10
Client Axapta 3.0 SP4 и Linux. Как запустить? Daiver DAX: Администрирование 10 28.06.2007 15:59

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Рейтинг@Mail.ru
Часовой пояс GMT +3, время: 14:05.