Как правильно искать файлы ?

← →
ZSergey (2005-08-04 16:07) [0]

Здравствуйте знатоки!
Задача тривиальная: нужно найти файлы в определенной папке. ListBox заполняется не только файлами, но и папками. Что не так? Вот мой код:

procedure TForm1.btnFindClick(Sender: TObject); var FindHandle : THandle; FindData : TWin32FindData; b: boolean; s: string; begin // устанавливаем атрибуты файла FindData.dwFileAttributes := FILE_ATTRIBUTE_NORMAL; FindHandle := FindFirstFile("D:\parus\*.*", FindData); if FindHandle <> INVALID_HANDLE_VALUE then begin b := true; while b do begin s := FindData.cFileName; ListBox2.Items.Add(s); b := FindNextFile(FindHandle, FindData); end; end; windows.FindClose(FindHandle); end;

← →
Leonid Troyanovsky © (2005-08-04 16:10) [1]

> ZSergey (04.08.05 16:07)
> Задача тривиальная: нужно найти файлы в определенной папке.
> ListBox заполняется не только файлами, но и папками. Что
> не так? Вот мой код:

Perform(ListBox.Handle, LB_DIR, 0, LParam(PChar("*.*"))

--
Regards, LVT.

← →
clickmaker © (2005-08-04 16:15) [2]

if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0

а перед вызовом FindFirst устанавливать атрибут бессмысленно: это выходной параметр

← →
ZSergey (2005-08-04 16:29) [3]

Спасибо всем!

Как правильно искать файлы ? Найти похожие ветки