| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как правильно искать файлы ? [D7, Win2k]

ZSergey ©   (2005-08-04 16:07:00) 

Здравствуйте знатоки!
Задача тривиальная: нужно найти файлы в определенной папке. 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;


---

ZSergey   (2005-08-04 16:29:00) [1]

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

---

clickmaker   (2005-08-04 16:15:00) [2]

if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0

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

---

Leonid Troyanovsky   (2005-08-04 16:10:00) [3]

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


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

--
Regards, LVT.

---

Наверх