// Ищет все большие файлы и выводить в сообщения путь к файлу
// возможно продолжительное время работы
Сообщения.Очистить();
Размер = 1024*              1024* 1024; // ищем все файлы больше 1 Гб
Папка  = "C:";
Имена  = Файлы.Имена(Папка, "",   0,    1);
Сообщить("Всего файлов в папке "+Папка, Имена.Количество());
Для Стр Из Имена Цикл
    Р1 = Файлы.Размер(Стр);
    Если (Р1>Размер) Тогда
        Р2 = Числа.Целое(Числа.Гигабайт(Р1));
        Сообщить(Р2, Стр);
    Конец;
Конец;