| 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 |
|
|
|
| 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
|
|