DirectoryExists (Delphi)
Description
The following example creates a directory, C:\temp, if it does not already exist.
Code
uses
FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
begin
if not SysUtils.DirectoryExists('C:\temp') then
if not CreateDir('C:\temp') then
raise Exception.Create('Cannot create C:\temp');
if not CreateDir('C:\temp') then
raise Exception.Create('Cannot create C:\temp again!');
end;
Uses
- System.SysUtils.DirectoryExists ( fr | de | ja )
- System.SysUtils.CreateDir ( fr | de | ja )
- System.SysUtils.Exception.Create ( fr | de | ja )