How to create a directory on a local disk in 1s?

Question

1C

There is this code, it saves the image along the path D:\prises\img\ . I sit and puzzle over how to make it so that it would create a folder along this path by the name of the nomenclature. i.e. D:\prises\img\ (create folder name="object.name") + "jpg".

And the result is: D:\prises\img\Konstantin Semenov\name.jpg

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

Answer 1

Are you seriously?
Did you look in the syntax helper - CreateCatalog()?
Googled in 15 seconds.