procedure sample; var filedir : string; begin filedir := 'c:\temp\'; // Now see if the dir exists if directoryexists(filedir) then message_dlg(filedir +' exists OK') else message_dlg(filedir +' does not exist'); end;