DelphiBasics
CreateDir
Function
Create a directory SysUtils unit
 function CreateDir ( const Dir : string ) : Boolean;
Description
The CreateDir function creates a new directory Dir in the current directory.
 
If the create succeeded, the True is returned, otherwise the error can be obtained using GetLastError.
Related commands
ChDir Change the working drive plus path for a specified drive
GetCurrentDir Get the current directory (drive plus directory)
GetDir Get the default directory (drive plus path) for a specified drive
MkDir Make a directory
RemoveDir Remove a directory
RmDir Remove a directory
SelectDirectory Display a dialog to allow user selection of a directory
SetCurrentDir Change the current directory
ForceDirectories Create a new path of directories
 Author links

 Buy Website Traffic at
 Buywebsitetrafficexperts.com

 Buy Proxies at
 Buyproxies.io
 
 Download this web site as a Windows program.




 
Example code : Create a new directory
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
 
unit Unit1;
 
interface
 
uses
  SysUtils,   // Unit containing the CreateDir command
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  
Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);

begin
  // Create a new directory in the current directory
  if CreateDir('TestDir')
  then ShowMessage('New directory added OK')
  else ShowMessage('New directory add failed with error : '+
                   IntToStr(GetLastError));
end;
 
end.
Hide full unit code
   New directory added OK
 
Delphi Programming Neil Moffatt 2002 - 2017. All rights reserved.  |  Home Page