// Вытаскивает все файлы в подкаталогах на уровень вверх
// Есть каталог с подкаталогами
// надо вытащить все файлы в подкаталогах на уровень вверх
// и добавить к имени файла имя подкаталога.
// подкаталоги удалить.
Сообщения.Очистить();
Корень = "D:\Пример";
Папки  = Файлы.Имена(Корень, "", 1);
Сообщить("Было подкаталогов", Папки.Количество());
Для Папка Из Папки Цикл
    Сообщить("Обработка подкаталога", Папка);
    СФ = Файлы.Имена(Корень+Символы.ОС+Папка);
    Для Ф Из СФ Цикл
        Файлы.Копировать(Корень+Символы.ОС+Папка+Символы.ОС+Ф, Корень+Символы.ОС+Папка+"-"+Ф);
    Конец;
    Файлы.Удалить(Корень+Символы.ОС+Папка);
Конец;