بحـــث عـــن مـــجلـــد معيين بــدلفـــي

بـــســـم اللــــه الـــرحمـــــن الـــرحيـــــــــــــــــــم
الصـــــلاة والســـــلام علـــى رســـــول الله

بحـــث عـــن مـــجلـــد معيين بــدلفـــي

uses FileCtrl;

procedure TForm1.Button4Click(Sender: TObject);
begin
if DirectoryExists('Folder11') then
ShowMessage('هـــذا المجلد مـــوجـــود')
else ShowMessage('هــذا المجلد غيــــر مـــوجـــد '); // folder Exist .
end

ولك مني شكرا جزيلا