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 |
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.
| Show full unit code | C:\Base now exists
C:\Base deleted OK
|
|
|
|