| Description |
The GetDirectories method returns an array of strings that hold the absolute paths of the sub-directories of the specified PathString. Optionally, this list may be limited by the Filter string.
The array size is dynamically set by this method.
This filter string may contain valid directory name characters, but may not have consecutive . characters. Use * wildcard to represent a sequence of 0 or more characters, and ? to represent a single character.
|
| | Notes | Static methods are not methods of an object - they are simply class functions or procedures available at any time.
|
|
| Microsoft MSDN Links |
System.IO
System.IO.Directory
|
|
|
| An example of the 1st syntax |
program Project1;
{$APPTYPE CONSOLE}
uses
System.IO;
var
BasePath : String;
Folders : Array of String;
i : Integer;
begin
// Create a base folder
BasePath := 'C:\Base';
System.IO.Directory.CreateDirectory(BasePath);
// And some sub-folders
System.IO.Directory.CreateDirectory(BasePath+'\First');
System.IO.Directory.CreateDirectory(BasePath+'\Second');
System.IO.Directory.CreateDirectory(BasePath+'\Third');
// List the folders under C:\Base
Folders := System.IO.Directory.GetDirectories(BasePath);
for i := 0 to Length(Folders)-1 do
Console.WriteLine(Folders[i]);
// Now delete this nest of folders
System.IO.Directory.Delete(BasePath, true);
Console.Readline;
end.
| | Show full unit code | C:\Base\First
C:\Base\Second
C:\Base\Third
| | | Example of the second syntax | // 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
BasePath : String;
Folders : Array of String;
i : Integer;
begin
// Create a base folder
BasePath := 'C:\Base';
System.IO.Directory.CreateDirectory(BasePath);
// And some sub-folders
System.IO.Directory.CreateDirectory(BasePath+'\First');
System.IO.Directory.CreateDirectory(BasePath+'\Second');
System.IO.Directory.CreateDirectory(BasePath+'\Third');
// List the folders under C:\Base containing with 'r'
Folders := System.IO.Directory.GetDirectories(BasePath, '*r*');
for i := 0 to Length(Folders)-1 do
Console.WriteLine(Folders[i]);
// Now delete this nest of folders
System.IO.Directory.Delete(BasePath, true);
Console.Readline;
end.
end. | | Hide full unit code | C:\Base\First
C:\Base\Third
|
| |
|
|
|