onesenterprise.actual

Documentation: github.com/alecthomas/chroma/lexers/testdata

     1#Область СлужебныйПрограммныйИнтерфейс
     2
     3&НаСервере
     4Функция Создать(ИмяФайла) Экспорт
     5	
     6	//Создает новый архив
     7
     8	Инфо = Новый Файл(ИмяФайла);
     9	Если Инфо.Существует() Тогда
    10		УдалитьФайлы(ИмяФайла);
    11	КонецЕсли;
    12	
    13	Архив = Новый Структура;
    14	Архив.Вставить("Поток", ФайловыеПотоки.ОткрытьДляЗаписи(ИмяФайла));
    15	Архив.Вставить("Файлы", Новый Массив);
    16	Архив.Вставить("РазмерКаталога", 0);
    17
    18	Если Архив.РазмерКаталога > 0 Или Архив.Файлы.Количество() <> 0 Тогда
    19		Возврат Неопределено;
    20	КонецЕсли;
    21	
    22	Возврат Архив;
    23	
    24КонецФункции
    25
    26#КонецОбласти

View as plain text