Как программно из под 1с 7.7 создать Zip архив?
Ну и соответственно извлечь оттуда?

читать СП на тему Запуститьприложение() и КомандаСистемы()

Это если пользоваться только штатными методами 1с.

https://yadi.sk/i/t4crSyEEgq35a

(3) Ему в 1с77

ааа...:-)
Ну тогда с командной строки смотреть ключи

гдето тут
http://www.unesco.kz/publications/ci/2006/ifap/Book1/2_os/1_linux/03_file/8_zip/index.html

Смысл в том, что бы не использовать архиваторы типа WinRar.
Есть только 1С и Windows. Причем Windows не везде одинаков.

(7)в клюшках нет встроенной работы с zip.Так что только внутренностями ты не обойдешься

(6) Ссылка корявая

(9)Провайлер у тебя корявый:-)
https://yadi.sk/i/2kKo48KYgq38V

(10) Это не то! Это для Линуха.

(11)Ключи они и в африке ключи

(8) Но ведь УРБД создает zip архив!!!

(13)В 77 это внутренности платформы. Врядли тебя туда пустят:-)

и вообще.Переходите на 8 - там это реализовано:-)

Обидненько. Просто 44 точки в разных городах. Видимо придется везде как то RAR устанавливать или dll.

(16)Ну сидишь на 77 - имей все прелести бытия...

(15) На 8 не реально.
Своя конфа на 7.7 написана.

Ладно, и на том спасибо! :(

Говорят, вот так можно:

'The location of the zip file.
ZipFile="C:\Test.Zip"
'The folder the contents should be extracted to.
ExtractTo="C:\Test\"

'If the extraction location does not exist create it.
Set fso = CreateObject("Scripting.FileSystemObject")
If NOT fso.FolderExists(ExtractTo) Then
fso.CreateFolder(ExtractTo)
End If

'Extract the contants of the zip file.
set objShell = CreateObject("Shell.Application")
set FilesInZip=objShell.NameSpace(ZipFile).items
objShell.NameSpace(ExtractTo).CopyHere(FilesInZip)
Set fso = Nothing
Set objShell = Nothing

В смысле, копай в эту сторону. Если в Shell.Application есть распаковка, где-то рядом должна быть и архивация.

Вон, например, расписано и архивация и распаковка
http://hiprog.com/index.php?option=com_content&task=view&id=251661619&Itemid=35

заюзать ВК, например DialMail.dll


Функция глРаботаСЗИП(Параметры) Экспорт
    Перем ZIP;
    
    ZIP = СоздатьОбъект("AddIn.ZIP");       
    //Инициализация переменных    
    Команда = Параметры.Получить("Команда");//Pack,UnPack;
    ПапкаНазначения = Параметры.Получить("ПапкаНазначения");
    ИмяФайла = Параметры.Получить("ИмяФайла");
    ИмяФайлаЗИП = Параметры.Получить("ИмяФайлаЗИП");

    Если Команда="Pack" Тогда
        Хвостик="упакован";
        Если ФС.СуществуетФайл(ПапкаНазначения+ИмяФайлаЗИП)=1 Тогда
            ФС.УдалитьФайл(ПапкаНазначения+ИмяФайлаЗИП);
        КонецЕсли;    

        ZIP.КаталогДобавления = ПапкаНазначения;
        КоличествоФайлов = ZIP.ДобавитьВАрхив("D", ПапкаНазначения+ИмяФайла, ПапкаНазначения+ИмяФайлаЗИП);
        ФС.УдалитьФайл(ПапкаНазначения+ИмяФайла);
    ИначеЕсли Команда="UnPack" Тогда
        Хвостик="распакован";
            
        Если ФС.СуществуетФайл(ПапкаНазначения+ИмяФайла)=1 Тогда
            ФС.УдалитьФайл(ПапкаНазначения+ИмяФайла);
        КонецЕсли;    
        ZIP.КаталогИзвлечения = ПапкаНазначения;  
        ZIP.ОчиститьМаски();
        КоличествоФайлов = ZIP.Извлечь(,,ПапкаНазначения+ИмяФайлаЗИП);
        ФС.УдалитьФайл(ПапкаНазначения+ИмяФайлаЗИП);
    КонецЕсли;        
        
    Если ZIP.КодОшибки = 0 Тогда
        Состояние("Файл "+ ИмяФайла+" "+Хвостик);    
    Иначе          
        СтрОшибки = "Ошибка работы с архивам: "+ИмяФайлаЗИП+" код "+ZIP.КодОшибки+": "+ZIP.КодОшибкиСтр;
        Сообщить(СтрОшибки,"!");
        ЗаписьЖурналаРегистрации("Ошибка работы с архивам: "+ИмяФайлаЗИП+" код "+ZIP.КодОшибки+": "+ZIP.КодОшибкиСтр,"глРаботаСЗИП","DialMail",,5);
    КонецЕсли;

    
    Возврат "";
КонецФункции    // Извлечь

или другую ВК... у меня - простая и тупая. Которая умеет архивировать один файл

(0) Лучше используй 1С++, там это все есть :)