قبل از ساختن پوشه می خواهم مطمئن شوم که چنین پوشه از قبل موجود نباشد?

[mahlamahla]

به نام خدا
می خواهم در یک مسیر خاص پوشه ای را ایجاد کنم با دستور
begin
MkDir('e:\Test');
end;
ولی قبل از ساخت این پوشه می خواهم مطمئن شوم که چنین پوشه از قبل موجود نباشد
و در صورت وجود به من هشدار دهد

متشکرم:قلب:

[BORHAN TEC]

با تابع DirectoryExists میتونی این کار رو انجام بدی:
procedure TForm4.Button1Click(Sender: TObject);
begin
if not DirectoryExists('C:\Test') then
MkDir('C:\Test');
end;

اگر هم قصد ساختن پوشه های تو در تو رو داری میتونی از تابع ForceDirectories استفاده کنی.