Если (Этот.Параметр=0) Тогда
    Уведомить("Параметр не задан");
    Возврат;
Конец;
Директория = Этот.Параметр.Текст;
Если (Директория="") Тогда
    Уведомить("Директория не задана");
    Возврат;
Конец;
Перенесено = 0;
Т          = Файлы.Имена(Директория, "*.*", 0, 1);
Для ПутьКФайлу1 Из Т Цикл
    ПутьКФайлу2 = Директория + Символы.ОС + Файлы.Имя(ПутьКФайлу1);
    Если (ПутьКФайлу1<>ПутьКФайлу2) Тогда
        // Сообщить(ПутьКФайлу1, ПутьКФайлу2);
        Перенесено = Перенесено + Файлы.Переместить(ПутьКФайлу1, ПутьКФайлу2);
    Конец;
Конец;
Уведомить("Перенесено файлов "+Строки.Строка(Перенесено), Директория);