@Vladik180

Как в 1с создать каталог на локальном диске?

Есть вот такой код, он сохраняет картинку по пути D:\prises\img\ . Сижу ломаю голову как сделать так что бы он создавал по этому пути папку по наименованию номенклатуры. т.е D:\prises\img\ (создать папку имя="объект.наименование") + "jpg".

И по итогу получается: D:\prises\img\Константин Семенов\имя.jpg

&НаКлиенте
Процедура ФотографияНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
	
	Если Объект.Ссылка.Пустая() Тогда
		Сообщить("Перед добавлением фотографии необходимо записать номенклатуры.");
		Возврат;
	КонецЕсли;
	
	СтандартнаяОбработка = Ложь;
	Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
	Диалог.Заголовок = "Выбор файла";
	Диалог.Фильтр = "Картинки(*.jpg)|*.jpg";
	Диалог.ИндексФильтра = 0;
	Диалог.Каталог = "D:\ВременнаяПапка";
	Диалог.ПредварительныйПросмотр = Ложь;
	Диалог.ПроверятьСуществованиеФайла = Истина;
	Диалог.МножественныйВыбор = Ложь;
	Диалог.ПолноеИмяФайла = "";
	Если Диалог.Выбрать() Тогда
		ПутьКФайлу = Диалог.ПолноеИмяФайла;
		Файл = Новый Файл(ПутьКФайлу);
		Если Файл.Размер() > 1024000 Тогда
			Сообщить("Размер файла не должен превышать 1 мб.");
			Возврат;
		КонецЕсли;
		      
		НовыйПуть = "D:\prises\img\" + Объект.Наименование + Объект.Код + ".jpg";
		КопироватьФайл(ПутьКФайлу, НовыйПуть);
		Файл = Новый Файл(НовыйПуть);
		Если Файл.Существует() Тогда
			Объект.Фотография = НовыйПуть;
			Попытка
				Карт = Новый Картинка(Объект.Фотография); 
				ФотографияКартинка = ПоместитьВоВременноеХранилище(Карт);
			Исключение
			КонецПопытки;
			Модифицированность = Истина;
		КонецЕсли;
	КонецЕсли;
	
КонецПроцедуры
  • Вопрос задан
  • 366 просмотров
Решения вопроса 1
nki
@nki
bezkart.ru готовая система лояльности
Вы серьезно?
В синтаксис-помощнике смотрели - СоздатьКаталог()?
Гуглится за 15сек.
Ответ написан
Комментировать
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Похожие вопросы