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