Ускорить алгоритм составления списка файлов данной директории

@Gdasar · Регистрация: 18.02.2013

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

Здравствуйте.
Есть папка с файлами(462166 штук), как мне быстро получить их список, а следовательно и их количество?
Вот, собственно, мой код, который работает где-то 30 минут:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    TSearchRec SR;
    TSearchRec tFileInfo;
    int a(0);
    if(FindFirst(ExtractFileDir(Application->ExeName) + "\\date\\images\\*.*", faDirectory, SR) == 0)
    {
        do
        {
            if( (SR.Attr & faDirectory) == faDirectory &&
                SR.Name != "." &&
                SR.Name != ".."
            )
            {
                if(FindFirst(ExtractFileDir(Application->ExeName) + "\\date\\images" + SR.Name + "\\*.*", faAnyFile, tFileInfo) == 0)
                {
                    do
                    {
                        // Исключаем корневую
                        if( tFileInfo.Name != "." &&
                            tFileInfo.Name != ".." &&
                            (tFileInfo.Attr & faDirectory) != faDirectory
                        ) // "." - ссылка на саму себя, ".." - родительская папка
                        {
                            a++;
                        }
                    }
                    while(FindNext(tFileInfo) == 0); // Цикл продолжается, пока FindNext что-то находит.
                }
                ComboBox7->Items->Add(SR.Name + "(" + a + ")");
                a = 0;
            }
        }
        while (FindNext(SR) == 0);
    }
    ComboBox7->ItemIndex = 0;
    FindClose(SR);
    FindClose(tFileInfo);
    List->Clear();
    delete List;

Этот код ищет подпапки, в которых и считает количество файлов.

Буду признателен за любую помощь.

@BOGG ART · 26.08.2016, 17:00

Не по теме:

Ради смеха протестируйте ещё такое

(правда тут на Делфи, но разница же практически только в синтаксисе):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Procedure TForm1.Button1Click(Sender: TObject);
Var
      Fetched: Cardinal;
      Cnt: Int64;
      FolderFileName: String;
      FSO: OleVariant;
      FC: OleVariant;
      F: OleVariant;
      Enum: IEnumVariant;
Begin
FolderFileName:='C:\Windows';
CoInitialize(Nil);
FSO:=CreateOleObject('Scripting.FileSystemObject');
ListBox1.Clear();
ListBox1.Items.BeginUpdate();
Try
      FC:=FSO.GetFolder(FolderFileName).Files;
      Cnt:=FC.Count;
      ShowMessage('Files Count: '+IntToStr(Cnt));
      Enum:=IUnknown(FC._NewEnum) As IEnumVariant;
      Cnt:=0;
      While Enum.Next(1, F, Fetched)=0 Do
            Begin
            ListBox1.Items.Add(IntToStr(Cnt)+' :: '+F.Name);
            F:=Unassigned;
            Inc(Cnt);
            End;
Except
      On E:Exception Do
            ShowMessage(SysErrorMessage(GetLastError()));
      End;
ListBox1.Items.EndUpdate();
CoUnInitialize();
End;

@Gdasar · 26.08.2016, 17:01 **[ТС]**

Fulcrum_013,

C++
1
2
3
TMemoryStream *Dir=new TMemoryStream();
    Dir->LoadFromFile("D:\");
    Memo1->Lines->LoadFromStream(Dir);

@Fulcrum_013 · 26.08.2016, 17:20

Нда действительно директории не видит к дискам говорит отказано в доступе. Видать в винде теперь из 3-го кольца такие действия прикрыли. Крайний раз пробовал этот финт ушами то ли под XP то ли еще под Win2000. тогда пускала запросто. По всей видимости для совместимости с DOS. В 10-ке ее окончательно убрали.

@volvo · 26.08.2016, 17:47

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

А как теперь список файлов вытащить так же быстро?

А там уже есть список файлов, если что. Только, чтобы с ним работать, нужно сделать так:

C++
1
2
3
4
5
6
    TStringDynArray lst = TDirectory::GetFiles("D:\\test\\largest");
    ShowMessage(IntToStr(lst.Length));
    for(int i = 0; i < lst.Length; i++)
    {
        // делать что нужно с lst[i]
    }

Новые блоги и статьи Все статьи Все блоги /
Установка статуса документа по условию Maks 05.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .	Сезонность и суточность закисления почв anaschu 04.07.2026 200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .	В чем ценность человеческого опыта в глобальном смысле? kumehtar 03.07.2026 Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .	интеграция AnyLogic с самописным REST API и переход на Odoo anaschu 03.07.2026 Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .
Поиск всех путей на ориентированном графе. Linux dcc0 02.07.2026 Переработка старого кода из моей статьи. Через несколько переработок от PHP кода к C89 (надеюсь, 89). Но довольно запутанно получилось. Код для Linux. Но если убрать time и то, что с ним. . .	Сам себя обучал rest api anaschu 02.07.2026 Педагогический лайфхак: Почему чистый REST API для ученика намного круче, чем готовые библиотеки Когда мы отказались от капризного JAR-файла AnyLogic и переписали код на стандартный HttpClient,. . .	rest api anylogic - выполнение модели на своём русском сайте anaschu 02.07.2026 Как подружиться с AnyLogic Cloud API, победить провайдеров и развернуться Java-бэкенд в Docker на бесплатном хостинге: Двухдневный лог борьбы Всем привет! Хочу поделиться свежим (и довольно. . .	Где деньги лежат kumehtar 02.07.2026 Это - японская подводная лодка I-52 (тип C2, кодовое имя Momi) вышла из Японии в марте 1944 года с миссией в оккупированную немцами Францию (Лорьян). Это была одна из «Янаги»-миссий по обмену. . .

@Fulcrum_013 2083 / 1575 / 169 Регистрация: 14.12.2014 Сообщений: 13,614
	26.08.2016, 17:20
	Нда действительно директории не видит к дискам говорит отказано в доступе. Видать в винде теперь из 3-го кольца такие действия прикрыли. Крайний раз пробовал этот финт ушами то ли под XP то ли еще под Win2000. тогда пускала запросто. По всей видимости для совместимости с DOS. В 10-ке ее окончательно убрали. 0

Ускорить алгоритм составления списка файлов данной директории

Решение