Скачать: CL | DM;

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

← →
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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c