PDA

View Full Version : یافتن همه ی پوشه های موجود در یک پوشه.


1485159
چهارشنبه 09 اردیبهشت 1388, 20:41 عصر
یافتن همه ی پوشه های موجود در یک پوشه و زیر شاخه های آن و ..
شاید تکراری باشه ولی ..
ممنون.
merced
پنج شنبه 10 اردیبهشت 1388, 09:41 صبح
براي اين كار بايد از نوع Tsearchrec و توابع FindFirst و FindNext استفاده كني
1485159
پنج شنبه 10 اردیبهشت 1388, 21:43 عصر
اینو میدونم ولی مخوام یکجا همهی فولدر ها رو توی یه لیست باکس بریزه
ممنون.
Delphi Coder
جمعه 11 اردیبهشت 1388, 00:43 صبح
جواب همینه. اول باید توسط یک تابع recursive و API هایی که دوستمان اشاره کردند آنها را بدست آورد و بعد هر کاری که دوست داشتید میتونید با اونا انجام بدید.
1485159
جمعه 11 اردیبهشت 1388, 12:18 عصر
اگه میشه شما کدش رو بزارین..
merced
جمعه 11 اردیبهشت 1388, 22:18 عصر
var
SR: TSearchRec;
IsFound: Boolean;
begin

IsFound := FindFirst('C:\Windows\*.*', faDirectory, SR) = 0;
while IsFound do begin
ListBox1.Items.Add(SR.Name);
IsFound := FindNext(SR) = 0;
end;
FindClose(SR);


end;


اين يعني پيداكردن subDirectory هاي يك پوشه
اگر بخواي كه زيرشاخه ها رو تا آخر ادامه بدي تابع بازگشتي نياز داري يعني dir /s