جستجوی فایل ها و پوشه ها

[fire.angle]

سلام
ببخشید که این سوال رو اینجا میپرسم
من یه کامپوننت در دلفی 7 میخوام که باهاش بشه هم دنبال فایل ها و هم دنبال پوشه ها گشت و کامل هم باشه
شما چیزی سراع ندارید ؟؟؟؟؟؟؟؟؟؟؟؟؟
توی سایت www.torry.net چند تا کامپوننت بود اما هر کدوم یه مشکلی داشتن

[Mask]

از این کامپوننت استفاده کنید.

[fire.angle]

این کامپوننت هم فقط دنبال فایل ها میگرده و قسمتی برای جستجوی پوشه ها نداره

[AliReza Vafakhah]

این کامپوننت رو نوشتم که قابلیت جستجو فولدر رو هم داره

http://barnamenevis.org/showthread.php?230880-Finder-%D8%8C-%DA%A9%D8%A7%D9%85%D9%BE%D9%88%D9%86%D9%86%D8%AA%D B%8C-%D8%AC%D9%87%D8%AA-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88-%D8%AF%D8%B1-%D9%87%D8%A7%D8%B1%D8%AF-%D8%AF%DB%8C%D8%B3%DA%A9

[Delphi 2010]

یه کامپوننت تازگی های توی سایت DelphiAbout گذاشتن میتونید از اون استفاده کنید

[Felony]

میتونید از کلاس TDirectory از کتابخانه IOUtils که در دلفی 2009 به بعد اضافه شده در دلفی 7 استفاده کنید .

[BORHAN TEC]

کامپوننت TJvSearchFiles که در مجموعه JVCL قرار داره خیلی خوبه ولی من شخصاً روشی که آقای تاجیک گفتند را ترجیح می دم چون احساس می کنم که سرعت بالاتری نسبت به روش های دیگر دارد.

[Mask]

میتونید از کلاس TDirectory از کتابخانه IOUtils که در دلفی 2009 به بعد اضافه شده در دلفی 7 استفاده کنید .
چطوری این کار رو باید انجام داد.

[Mahmood_M]

شاید این مقاله (http://barnamenevis.org/showthread.php?70587-%D8%B1%D9%88%D8%B4-%D8%AC%D8%B3%D8%AA%D8%AC%D9%88%DB%8C-%D9%81%D8%A7%DB%8C%D9%84%D9%87%D8%A7-...) مفید باشه

چطوری این کار رو باید انجام داد.
برای استفاده باید Unit مربوطه ( IOUtils ) رو به پروژه اضافه کنید ، اما مطمئنا خیلی از جاهش رو باید تغییر بدید مثلا از دلفی 2009 به بعد امکاناتی مثل " Refrence to Procedure/Function " برای کار با Anonymous Method ها اضافه شده که در دلفی 7 وجود نداره ، اگر قصد استفاده از این Unit رو دارید ، برای اینکه پروژه کامپایل بشه باید مثلا کدهای مربوط به Anonymous Method ها رو خودتون به صورتی که در دلفی 7 استفاده میشد بازنویسی کنید ! که کار منطقی ای به نظر نمیرسه !
برای استفاده از دلفی 2009 به بالا :
برای جستجوی پوشه :

for Path in TDirectory.GetDirectories(ParentDirectory, Name) do
Listbox.Items.Add('Name = ' + Path));

برای جستجوی فایل :

for Path in TDirectory.GetFiles(PaarentDirectory, Filter) do
Listbox.Items.Add('Name = ' + Path));

خروجی دستورات GetFiles و GetDirectories به صورت " Array of String " هست ، درواقع آرایه ی داینامیک String

...
این کامپوننت (http://www.greatis.com/delphicb/fsearch/index.html) هم مناسبه ...

موفق باشید ...

[fire.angle]

این کامپوننت (http://www.greatis.com/delphicb/fsearch/index.html) هم مناسبه ...این کامپوننت خیلی خوبه ولی یه مشکل کوچولو داره
کسی میتونه کمک کنه؟؟؟؟؟؟؟؟؟؟؟
مشکلش اینه که اگر شما دنبال پوشه ای به نام مثلا mp3 باشید و مسیر :\F رو برای جستجو انتخاب کنید فقط پوشه هایی رو به عنوان نتیجه نشون میده که در ریشه درایو F قرار دارند و اگر در زیر پوشه ها چنین پوشه ای وجود داشته باشه اون رو نشون نمیده (گزینه Recurse SubFolders هم فعال هستش)
اما اگر مسیر جستجو F:\New Folder باشه و دنبال پوشه هایی با نام Mp3 بگردیم حالا درست کار میکنه و اگر پوشه ای در زیرپوشه ها به همین اسم وجود داشته باشه اون رو توی نتیجه نشون میده

این مشکل زمان جستجوی فایل ها هم وجود داره

کسی میتونه کمک کنه ؟؟؟؟؟؟؟؟؟؟؟؟؟