لیستگیری از پوشه ها

[mostafa612003]

سلام
می توانیم در دلفی لیست یک سری پوشه ها را با یک مشخصه خاص مثل شروع شدن نام آنها با یک کاراکتر نمونه ،را نمایش بدهیم؟

[amirrf]

سلام،
بله . با انتخاب پارامترهای مناسب جستجو برای FindFirst:

FindFirst('c:\A*.*', faDirectory, SR)

[mostafa612003]

سلام
ممنون
ولی بعضی از پوشه ها را نشون نمی ده
علتش را می دونید؟

[mostafa612003]

سلام
اگر بخواهیم دنبال یک پوشه یا فایل در تمام پوشه هاو زیر پوشه ها بگردیم
چه باید بکنیم؟


متشکرم

[hr110]

دوست عزیز متد زیر برای حذف یک دایرکتوری و تمام محتویات انست ، این تابع را با کمی تغییر میتوانید به آنچه که میخواهید تبدیل نمایید:


procedure DeleteDirectory(Path:string);
var
SR : TSearchRec;
begin
try
if Path[Length(Path)]<>'\' then Path:=Path+'\';
if FindFirst(Path+'*.*',faAnyFile,SR)=0 then
repeat
if ((SR.Attr=32)or(SR.Attr=128)) then
DeleteFile(Path+SR.Name)
else if SR.Name[1]<>'.' then
DeleteDirectory(Path+SR.Name);
until FindNext(SR)<>0;
FindClose(SR);

Delete(Path,Length(Path),1);
RemoveDir(Path);
except
end;
end;

[amirrf]

ولی بعضی از پوشه ها را نشون نمی ده
علتش را می دونید؟
faHidden رو هم اضافه کنید.

[nasr]

دوست عزیز متد زیر برای حذف یک دایرکتوری و تمام محتویات انست ، این تابع را با کمی تغییر میتوانید به آنچه که میخواهید تبدیل نمایید:
;

من از این کد برای همون حذف کردن استفاده کردم ولی پوشه های مخفی(Hiden) را پاک نمی کنه
آیا راهی هست

ممنون

[_alish_]

ببین این بدردت می خوره خیلی راحته وبا کمی تغییر به همه چی می تونی برسی


procedure TForm1.Button1Click(Sender: TObject);
var
D: PChar;
begin
D := 'D:\a*.*';
SendMessage(ListBox1.Handle,
LB_DIR,
DDL_ARCHIVE +
DDL_DIRECTORY +
DDL_DRIVES +
DDL_EXCLUSIVE +
DDL_HIDDEN +
DDL_READONLY +
DDL_READWRITE +
DDL_SYSTEM,
Integer(D));
end;


اگر هم نشود این هم با Find File بد نیست
var
SR: TSearchRec;

[nasr]

سلام

من متوجه نشدم این کدی که شما نوشته اید کارش چیه

من فقط می خوام فایلی و فولدری که خاصیت Hide داره را حذفش کنم

[_alish_]

میتی سلام می رسونه می گه خوب با کتابه حال کردی یا نه

بچه اصفهون

اینه از طرف من کد بالا که همه چی را بهت می گه خوب یکی یکی آنرا حذف کن دیگه داداش