Грохнуть все файлы

[Игорь Столяров]

Привет всем !

Можно как-нибудь БЫСТРО удалить большое кол-во файлов в заданной папке ?
Скорее всего - через WinAPI ... Сейчас пользуюсь следующим кодом:

Код: Выделить всё

FIQ         QUEUE,PRE(F_IQ)
Name          STRING(FILE:MAXFILENAME)
ShortName     STRING(13)
Date          LONG
Time          LONG
Size          LONG
Attrib        BYTE
            END

Loc:Count Long

     Code

     Free(FIQ)
     Directory(FIQ,LongPath(Clip(System{Prop:DataPath})) & 'Image\*.*', FF_:NORMAL)
     If Records(FIQ)
        Loop Loc:Count = 1 to Records(FIQ) by 1
          Get(FIQ,Loc:Count)

          If Clip(Left(FIQ.Name)) <> ''
             If Exists(LongPath(Clip(System{Prop:DataPath})) & 'Image\' & Clip(Left(FIQ.Name)))
                Remove(LongPath(Clip(System{Prop:DataPath})) & 'Image\' & Clip(Left(FIQ.Name)))
             end
          end
        end
     end

Работает хорошо, но при Records(FIQ) > 10000 ощутимо тормозит ...
Заранее спасибо за любую наводку.

[Дед Пахом]

Даже этот код можно оптимизировать - например, убрать проверку If Exists.
Потом убрать остальные строчки (включая декларацию очереди) и оставить только одну:
Remove(LongPath(Clip(System{Prop:DataPath})) & 'Image\*.*')

[Игорь Столяров]

Согласен ... Но все равно операция последовательно удаляет по одному файлу последовательным перебором ...
Должна же быть в WinAPI команда очистки папки ... и что-то я ее не найду.

[Дед Пахом]

Посмотри API_Remove в clib.clw, хотя я думаю, стандартная REMOVE просто оболочка над ней.

[Admin]

Можно как-нибудь БЫСТРО удалить большое кол-во файлов в заданной папке ?
Работает хорошо, но при Records(FIQ) > 10000 ощутимо тормозит ...
Заранее спасибо за любую наводку.

Ваш вариант - удаление в корзину

[Tuko_G]

А через RUN(''Del . /Q/S/F') не подаидет.

[gopstop2007]

Если удалить все файлы в директории, может переименовать и сразу создать такую же директорию, а потом удалять файлы, или просто удалить директорию командой RMDIR c:\blah /s /q и заново создать такую же

[Admin]

Как вариант запустить отдельный поток и в нем удалять по 10-100 файлов в цикле.
Остальная программа будет продолжать работать.
Это в случае если прямо сейчас не нужен "чистый" каталог.

[Игорь Столяров]

Remove(LongPath(Clip(System{Prop:DataPath})) & 'Image\*.*')

Нэ работает. Может быть оно и к лучшему ...

RMDIR c:\blah /s /q

Вот это точно делать не надо ... Ничего хорошего в DOS окнах нет, к тому же под Win x64 этот номер уже не пройдет.

Копаем дальше ...

[Дед Пахом]

Remove(LongPath(Clip(System{Prop:DataPath})) & 'Image\*.*')

Нэ работает. Может быть оно и к лучшему ...
Копаем дальше ...

Ну проверь, делов-то:

PROGRAM

MAP
END

CODE
REMOVE('e:\xyz\abc\*.*')

[Игорь Столяров]

Так проверил есстессно ... под C63. Сейчас проверю еще под C8/C91 ...
Может дьявол, как обычно, спрятался в деталях ...

[Дед Пахом]

Я под C8 проверял.

[Игорь Столяров]

REMOVE('e:\xyz\abc\*.*')

Докладываю по существу вопроса.

В C63 - Ошибка 5 "Нет доступа".

В C91 - Все работает. Конкретные цифры не интересны, ибо зависят от системы, а вот отношение весьма радостное.
На 20 выборках от 30000 до 50000 файлов скорость выросла ... ровно на порядок (в 10 раз).

И это есть решение. Спасибо !

[kreator]

Есть ещё функция в Clarion'е RemoveDirectory. Вызывает rmdir.

[seawolf]

только перед rmdir надо зачистить папку от файлов - иначе он не сработает (как -то вроде так)