البحت عن ملفات معينة في القرص الصلب

أخي الكريم

استخدم الإجراء التالي

procedure FileSearch(const PathName, FileName : string; list : Tlistbox; const InDir : boolean);
var Rec  : TSearchRec;
    Path : string;
begin
  Path := IncludeTrailingBackslash(PathName);
  if FindFirst(Path + FileName, faAnyFile - faDirectory, Rec) = 0 then
  try
    repeat
      List.Items.Add(Path + Rec.Name)
    until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
  end;
  If not InDir then
    Exit;
  if FindFirst(Path + '*.*', faDirectory, Rec) = 0 then
  try
    repeat
      if ((Rec.Attr and faDirectory) <> 0)  and (Rec.Name<>'.') and (Rec.Name<>'..') then
        FileSearch(Path + Rec.Name, FileName, list, True);
    until FindNext(Rec) <> 0;
  finally
    FindClose(Rec);
  end;
end;

ثم قم بإستدعاءه على الشكل التالي على فرض بأن القسم الذي سيتم البحث فيه هو C

filesearch('c:\','*.jpg',listbox1,true) ;

أرجو الإستفادة

بارك الله فيك على المجهود

اخي ممكن تشرح ما فائدة المتغير InDir وكيف يعمل ؟

اخي اين اجد الشروحات حول الدوال والإجرءات التي تستدعي نفسها ؟

بالنسبة للمتغير InDir متي ترجع قيمته false ?

HMAMH كتب:

الله ينورك نعم تستحق رتبة خبير بجدارة

شكرا لك اخي الكريم :blush:

الأجراء مأخوذ من delphi about يمكنك مشاهدة المثال و شرح عنه هنا

بالنسبة للمعاملات التي يستخدمها الإجراء

pathname

يستخدم لتحديد مسار البحث

filename

يستخدم لتحديد اسم الملف مع اللاحقة و يمكن إستخدام الرمز * لدلالة على مجموعة مجهولة من الأحرف ... تماما كعملية البحث في ويندوز

list

لعرفض النتيجة

indir

أمكانية البحث في المجلدات الفرعية .. في حال اخذ القيمة true فسيتم البحث داخل المجلدات الفرعية للمسار المحدد .. اما في حال اخذ القيمة false فسيتم البحث في المسار المحدد فقط

و تم استخدام findfirst و findnext للبحث عن الملف

ستجد شرح مفصل في الرابط السابق

أرجو الإستفادة

شكرا بارك الله فيك

جزاك الله خيرا