Удаление пустых файлов

Ddv122 · Регистрация: 23.12.2010

Студворк — интернет-сервис помощи студентам

Доброго времени суток . Очень не стандартная ситуация
Цель программы - удалить с папки файлы которые 0 байт
Все просто и с этой ситуацией справлялось успешно код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    TSearchRec sr3;
    AnsiString DirName4 = AnsiString(WinDir) + L"\\Logs\\";
    if (DirName4.Length())
    {
        if (!FindFirst(DirName4 + L"*.*", faAnyFile, sr3))
            do
            {
                if ((sr3.Name != ".") || (sr3.Name != "..") || (sr3.Attr != faDirectory ) )
                {
                                       Memo1->Lines->Add(DirName4 + sr3.Name);
                    TFileStream *fs = new TFileStream(DirName4 + sr3.Name, fmOpenRead);;
                        if ( fs->Size==0)
                        {
                            delete fs;
                            DeleteFile(DirName4 + sr3.Name);
                        }
                      }
 
            }
 
            while (!FindNext(sr3));
        FindClose(sr3);
    }

но есть 3 ПК - на котором этот код не срабатывает ( дело не в правах / UAC и т.д / праваx / HDD)
Уверен решение банальное - но пока не вижу, может вы подскажите ..как обойти ошибку
и в Log заносится путь с . в конце

@volvo · 05.01.2015, 20:08

Ddv122, собственно, 2 вопроса:
1) почему там "или" в условии? Должно же быть "и":

C++
1
if ((sr3.Name != ".") && (sr3.Name != "..") && (sr3.Attr != faDirectory))

2) зачем понадобилось создавать TFileStream, если можно прямо проверить размер файла через sr3:

C++
1
if (sr3.Size==0)

?

Ddv122 · 05.01.2015, 21:06 **[ТС]**

Сообщение от volvo

Должно же быть "и":

да оно и было если честно - но часа 3 бился , уже и бездумно вставлял - надеясь на авось

Сообщение от volvo

2) зачем понадобилось создавать TFileStream, если можно прямо проверить размер файла через sr3:

Тут мне нет объяснения , не дочитал справку о TSearchRec , а изобретал грабли ...
Интересно что не на всех пк а на особых и нет закономерности ...
Кажись всё поправилось , спасибо, днем проверю на проблемных ПК .

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .