/// Экспорт указанных классов (и/или рутин) в xml а потом в запароленный архив
/// classnames - одно или несколько имён классов разделённые запятой
/// например: "User.Myclass.cls,User.MyClass2.cls"
classmethod Export(classnames as %String = "") as %String
{
	s Archiver = "c:\sklad\pkzip25.exe"
	s password = "vedro"
	s XmlExportFilename = "c:\zz.xml"
	s ZipExportFilename = "c:\ExportCache.zip"
	
	if '##class(%File).Exists(Archiver) q "Не найден файл архиватор "_Archiver
	
	//экспортируем указанные элементы
	s ok = $system.OBJ.Export(classnames,XmlExportFilename)
	if '+ok q $$GetOneErrorText^%apiOBJ(ok, 1 )
	
	//составим командную строку архивации и выполним её
	s CommandString=Archiver_" -add -NoFix -move -pass="_password_" "_ZipExportFilename_" "_XmlExportFilename_" >c:\ZipExportLog.txt"
	d $ZF(- 1 ,CommandString)
	
	q  1 
}

/// Импорт классов из zip архива и сокрытие импортированных классов 
/// filename - запароленный zip файл в котором zz.xml с классами
classmethod Import(filename as %String = "") as %String
{
	s Archiver = "c:\sklad\pkzip25.exe"
	s password = "vedro"
	s TempDir = "c:\sklad"	//тут бы конечно использовать виндовую переменную %TMP% но я не знаю как это сделать
	s XmlFile = "zz.xml"

	if filename="" q "Не указан файл для импорта"
	if '##class(%File).Exists(filename) q "Не найден файл импорта "_filename
	if '##class(%File).Exists(Archiver) q "Не найден файл архиватора "_Archiver
	
	//составим командную строку распаковки и выполним её
	s CommandString=Archiver_" -extract -over=all -NoFix -path=root -pass="_password_" "_filename_" "_TempDir_" >c:\ZipImportLog.txt"
	d $ZF(- 1 ,CommandString)

	if '##class(%File).Exists(TempDir_"\"_XmlFile) q "Не найден импортируемый файл "_TempDir_"\"_XmlFile
	
	//импортируем распакованный xml
	s ok = $system.OBJ.Load(TempDir_"\"_XmlFile,"ck",.p1,.p2)
	if '+ok q $$GetOneErrorText^%apiOBJ(ok, 1 )

	//удалим xml файл
	s ok=##class(%File).Delete(TempDir_"\"_XmlFile)
	//даже если не смогли удалить, всё равно скрываем классы и молчим в тряпочку

	//теперь скроем импортированные классы
	//цикл по названиям импортированных элементов
	f i= 1 : 1 :$L(p2,",") d
	. s element=$P(p2,",",i)
	. //пропускаем всё кроме классов
	. q:$P(element,".",$L(element,".")'="cls")
	. s ok = $system.OBJ.MakeClassDeployed($P(element,".",1,$L(element,".")-1))
	. if '+ok w $$GetOneErrorText^%apiOBJ(ok, 1 ),!
	
	q  1 
}

PTK7>w ##class(User.Test).Export("User.Test2.cls")
 
Экспорт  в XML начался в  03 / 01 / 2010   15 : 26 : 43 
Экспортируемый класс: User.Test2
Эскпорт завершился успешно.

w ##class(User.Test).Import("c:\ExportCache.zip")