Пример программного создания каталога для хранения данных на жестком диске или внешнем носителе.
Когда вопрос становится, где хранить файлы или каким образом программно создать каталоги для выгружаемых файлов из системы, то предлагаю следующий пример:
- Описание
- Подробнее
Описание
Я решил сделать каталог год/месяц/число/
ПроцедураКоманднаяПанель6СохранитьТаблицуXML(Кнопка)
Запись = Новый ЗаписьXML;
СтандартныйПутьКФайлу = "C:\ExternalTable";
Дата_ТД = Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
Время_ТД = Формат(ТекущаяДата(),"ДЛФ=T");
ТекущийМесяц = ОпределитьМесяц(Прав(Лев(Дата_ТД,5),2)); //функция находится ниже
ВремяТекущееСкорректированное = СтрЗаменить(Время_ТД,":","_");
ПутьКФайлу = СтандартныйПутьКФайлу + "\" + Прав(Дата_ТД,4) + "\" + ТекущийМесяц
+ "\" + Лев(Дата_ТД,2) + "\";
ПроверитьСуществованиеКаталога(ПутьКФайлу);
Запись.ОткрытьФайл(ПутьКФайлу + "ПервоначальнаяТаблица" +ВремяТекущееСкорректированное);
//Работа непосредственно с файлом
Запись.ЗаписатьОбъявлениеXML();
Запись.Закрыть();
КонецПроцедуры
ФункцияОпределитьМесяц(МесяцЦифровой)
Если МесяцЦифровой = "01" Тогда
Возврат "Январь";
ИначеЕсли МесяцЦифровой = "02" Тогда
Возврат "Февраль";
ИначеЕсли МесяцЦифровой = "03" Тогда
Возврат "Март";
ИначеЕсли МесяцЦифровой = "04" Тогда
Возврат "Апрель";
ИначеЕсли МесяцЦифровой = "05" Тогда
Возврат "Май";
ИначеЕсли МесяцЦифровой = "06" Тогда
Возврат "Июнь";
ИначеЕсли МесяцЦифровой = "07" Тогда
Возврат "Июль";
ИначеЕсли МесяцЦифровой = "08" Тогда
Возврат "Август";
ИначеЕсли МесяцЦифровой = "09" Тогда
Возврат "Сентябрь";
ИначеЕсли МесяцЦифровой = "10" Тогда
Возврат "Октябрь";
ИначеЕсли МесяцЦифровой = "11" Тогда
Возврат "Ноябрь";
ИначеЕсли МесяцЦифровой = "12" Тогда
Возврат "Декабрь";
КонецЕсли;
КонецФункции

