Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.28;
Скачать: 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 вся ветка

Текущий архив: 2005.08.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
9-1115044131
Motion
2005-05-02 18:28
2005.08.28
Решение СЛАУ методом Гаусса


1-1123670582
ANB
2005-08-10 14:43
2005.08.28
Как избавится от порчи большого текста в TRichEdit


11-1105724735
Bil Bal Dur
2005-01-14 20:45
2005.08.28
PDirList и ListView


3-1121775517
BlackWhite
2005-07-19 16:18
2005.08.28
Разнотипные поля в таблице = ОШИБКА


5-1094974226
FHT
2004-09-12 11:30
2005.08.28
Работа при срабатывании OnCustomDrawItem в своем компаненте