Description |
If the current Directory exists, it is deleted. The delete will fail if the directory is not empty, unless the Recursive parameter is true, when all sub-directories are deleted first.
|
| Notes | An exception is thrown if the delete is not recursive and sub-directories are found.
|
|
Microsoft MSDN Links |
System.IO
System.IO.DirectoryInfo
|
|
|
Creating and deleting a nest of folders |
// Full Unit code. // ------------------------------------------------------------- // Create a new WinForm application, double click the form to // create an OnLoad event, and then replace the WinForm unit // with this text. unit WinForm; interface uses System.Drawing, System.Collections, System.ComponentModel, System.Windows.Forms, System.Data; type TWinForm = class(System.Windows.Forms.Form) \{REGION 'Designer Managed Code'\} // Note that REGION and ENREGION should be prefixed by a dollar sign strict private /// /// Required designer variable. /// Components: System.ComponentModel.Container; /// /// Required method for Designer support - do not modify /// the contents of this method with the code editor. /// procedure InitializeComponent; procedure TWinForm_Load(sender: System.Object; e: System.EventArgs); {ENDREGION} strict protected /// /// Clean up any resources being used. /// procedure Dispose(Disposing: Boolean); override; private { Private Declarations } public constructor Create; end; [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))] implementation \{REGION 'Windows Form Designer generated code'\} /// /// Required method for Designer support -- do not modify /// the contents of this method with the code editor. /// procedure TWinForm.InitializeComponent; begin // // TWinForm // Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13); Self.ClientSize := System.Drawing.Size.Create(292, 266); Self.Name := 'TWinForm'; Self.Text := 'WinForm'; Include(Self.Load, Self.TWinForm_Load); end; {ENDREGION} procedure TWinForm.Dispose(Disposing: Boolean); begin if Disposing then begin if Components <> nil then Components.Dispose(); end; inherited Dispose(Disposing); end; constructor TWinForm.Create; begin inherited Create; // // Required for Windows Form Designer support // InitializeComponent; // // TODO: Add any constructor code after InitializeComponent call // end; procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs); program Project1;
{$APPTYPE CONSOLE}
uses
System.IO;
var
DirInfo : System.IO.DirectoryInfo;
Base : String;
SubFolder : String;
begin
Base := 'C:\Base';
SubFolder := 'SubFolder';
// Create a DirectoryInfo object for this Base folder
DirInfo := System.IO.DirectoryInfo.Create(Base);
// Create the Base folder
DirInfo.&Create;
// And create a sub folder
DirInfo.CreateSubdirectory(SubFolder);
if System.IO.Directory.Exists(Base)
then Console.WriteLine('{0} now exists', Base)
else Console.WriteLine('{0} does not exist', Base);
// Now delete this nest of folders
DirInfo.Delete(true);
if System.IO.Directory.Exists(Base)
then Console.WriteLine('{0} still exists', Base)
else Console.WriteLine('{0} deleted OK', Base);
Console.Readline;
end. end. | Hide full unit code | C:\Base now exists
C:\Base deleted OK
|
|
|
|