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

[hamid-nic]

سلام دوستان ، وقتتان بخیر
در برنامه ای می خواهم نام تمام درایو ها موجود در سیستم به همراه نام پوشه ها و نام زیر پوشه ها و نام فایل های موجود در اون ها را به تفکیک هر درایو بدست آورده و در یک فایل متنی (txt) ذخیره کنم .
دوستان در صورت امکان راهنمایی بفرمایید به چه شکلی باید این کار را انجام بدهم .
ممنون

[Felony]

این کد رو الان نوشتم و تست نکردم ولی فکر نمیکنم مشکلی داشته باشه ، کتابخانه IOUtils رو هم به Uses اضافه کنید :

var

  Drive, Dir, Filename: string;

  StrList: TStringList;

  List: TFileStream;

begin

  for Drive in TDirectory.GetLogicalDrives do

    if (GetDriveType(PWideChar(Drive)) <> DRIVE_CDROM) then

    begin

      StrList := TStringList.Create;

      try

        StrList.Add(Drive);

        for Dir in TDirectory.GetDirectories(Drive, '*', TSearchOption.soAllDirectories) do

        begin

          StrList.Add(Dir);

          for Filename in TDirectory.GetFiles(Dir, '*.*') do

            StrList.Add(Filename);

          StrList.Add('---------------------------------------------------');

        end;

        StrList.SaveToFile(system.SysUtils.ExtractFilePath  (Application.ExeName) + 'FileList.txt');

      finally

        StrList.Free;

      end;

    end;

end;

[hamid-nic]

من برای دلفی 7 دارم می نویسم اما مثل اینکه کتابخانه IOUtils برای دلفی 7 وجود نداره . به نظر شما با دلفی 7 میشه از این کد نتیجه گرفت ؟

[BORHAN TEC]

من برای دلفی 7 دارم می نویسم اما مثل اینکه کتابخانه IOUtils برای دلفی 7 وجود نداره . به نظر شما با دلفی 7 میشه از این کد نتیجه گرفت ؟

خیر، کدی که آقا ماهان نوشته اند بر روی دلفی 2010 و نسخه های بعد از اون اجرا میشه.

برای دلفی 7 بهتره که از مثالی که ضمیمه کرده ام استفاده کنید. (منبع این مثال کتاب Mastering Delphi 7 هست)
در هر صورت اگر سرعت جستجو برای شما خیلی مهمه می تونید از SDK مربوط به نرم افزار EveryThing استفاده کنید که در کسری از ثانیه میتونه به جستجوی کل اطلاعات هارد دیسک شما بپردازه. اگر با این نرم افزار تا بحال کار نکرده اید پیشنهاد می کنم که دانلودش کنید تا دقیقاً متوجه بشین که چه سرعت حیرت آوری در جستجوی فایلها داره!
این هم آدرس سایتش هستش:
http://www.voidtools.com/

[mbshareat]

سلام
بهتره اول متغیری از نوع TStrings داشته باشیم و با Add آدرسها رو یکی یکی به اون اضافه کنیم بعد Strings.Text این متغیر رو یکباره به لیست باکس بدیم که سرعت بالا بره.

[hamid-nic]

در هر صورت اگر سرعت جستجو برای شما خیلی مهمه می تونید از SDK مربوط به نرم افزار EveryThing استفاده کنید که در کسری از ثانیه میتونه به جستجوی کل اطلاعات هارد دیسک شما بپردازه.

آقای عشایری عزیز خیلی ممنون از راهنمایی و محبتتون
این برنامه که معرفی کردید فوق العاده سرعت خوبی داره !!! از سایتش sdk را دانلود کردم به چه نحوی باید بکاربرد در دلفی ؟؟

[lord_viper]

این کد تو دلفی 7 جواب میده

تابع جستجو به صورت بازگشتی

procedure findfile(a,s:string);

var

f:tsearchrec;

begin

if findfirst(a+s,faanyfile,f)=0 then

repeat

if f.Attr<>fadirectory then

form1.ListBox1.Items.Add(a+f.Name);

until findnext(f)<>0;

findclose(f);

if findfirst(a+'*',fadirectory,f)=0 then

repeat

if (f.Attr and fadirectory=fadirectory)and(f.Name<>'.')and(f.Name  <>'..')then

findfile(a+f.Name+'\',s);

until findnext(f)<>0;

findclose(f);

end;

جستجو در یک درایو یا همه درایوها

procedure TForm1.Button1Click(Sender: TObject);

var

b,m:integer;

n:string;

begin

b:=combobox1.ItemIndex;

 n:=combobox1.Items.Strings[b];

 if b>-1 then

 findfile(n,edit2.Text)

else

for m:=0 to combobox1.Items.Count-1 do

findfile(combobox1.Items.Strings[m],edit2.Text);

end;

گرفتن لیست درایوهای کامپیوتر

procedure TForm1.FormCreate(Sender: TObject);

var

x:char;

v:string;

begin

combobox1.Text:='alldrive';

for x:='a' to 'z' do

begin

v:=x+':\';

if getdrivetype(pchar(v))=DRIVE_FIXED then

combobox1.Items.Add(v);

end;

end;

[hamid-nic]

ممنون cayberfox عزیز
ولی همچنان سرعت پایینی در جست و جو داره .
اون sdk که توی چندتا پست قبلی بود را چطور میشه به دلفی معرفی و با هاش کار کرد ؟؟؟