بـــســـم اللــــه الـــرحمـــــن الـــرحيـــــــــــــــــــم
الصـــــلاة والســـــلام علـــى رســـــول الله
بحـــث عـــن مـــجلـــد معيين بــدلفـــي
uses FileCtrl;
procedure TForm1.Button4Click(Sender: TObject);
begin
if DirectoryExists('Folder11') then
ShowMessage('هـــذا المجلد مـــوجـــود')
else ShowMessage('هــذا المجلد غيــــر مـــوجـــد '); // folder Exist .
end