// пример работы с файлами
// Есть одна папка со снимками, в имени файла есть дата, например IMG-20171108-WA0001.jpg
// надо в этой директории создать создать папки с датами и разложить снимки по папкам
Сообщения.Очистить();
Путь    = "D:\Photo";
Имена   = Файлы.Имена(Путь);
снимков = Имена.Количество();
Для Стр Из Имена Цикл
    Стр2   = Строки.Заменить(Стр, "IMG_", "", "VID_", "", "SL_MO_", "", "IMG-", "", "VID-", "");
    Стр2   = Строки.Слева(Стр2,   8);
    Момент = Моменты.Момент(Стр2);
    Если (Момент<>0) Тогда
        Папка = Строки.Слева(Момент, 10);
        // Сообщить(Путь+Символы.ОС+Стр, Путь+Символы.ОС+Папка+Символы.ОС+Стр);
        Файлы.Переместить(Путь+Символы.ОС+Стр, Путь+Символы.ОС+Папка+Символы.ОС+Стр);
    Иначе
        Сообщить("Не могу определить дату из имени", Стр);
        Прервать;
    Конец;
Конец;
Сообщить("Обработано файлов", снимков);