Iterate over Files and Directories in Filesystem Directory Tree

Demonstrates how to use the Chilkat DirTree object/class to iterate over the names of files and sub-directories in a directory tree.

This example iterates over a directory tree that contains these files and sub-directories:

a
    images (sub-directory)
        dudeA.gif
        Thumbs.db
    hamlet.xml
    pigs.xml
    Setup.exe
b
    yyy (sub-directory)
    zzz (sub-directory)
        HelloWorld123.txt
        test123.txt
    dude.gif
    dudeC.gif
    hello.txt
    Thumbs.db
test123.txt

(sub-directory)
Relative Path: a
Absolute Path: c:\temp\abc123\a
Absolute UNC Path: \\?\c:\temp\abc123\a
----
(sub-directory)
Relative Path: b
Absolute Path: c:\temp\abc123\b
Absolute UNC Path: \\?\c:\temp\abc123\b
----
Size in bytes: 15
Relative Path: test123.txt
Absolute Path: c:\temp\abc123\test123.txt
Absolute UNC Path: \\?\c:\temp\abc123\test123.txt
----
Size in bytes: 279658
Relative Path: a\hamlet.xml
Absolute Path: c:\temp\abc123\a\hamlet.xml
Absolute UNC Path: \\?\c:\temp\abc123\a\hamlet.xml
----
(sub-directory)
Relative Path: a\images
Absolute Path: c:\temp\abc123\a\images
Absolute UNC Path: \\?\c:\temp\abc123\a\images
----
Size in bytes: 8463
Relative Path: a\pigs.xml
Absolute Path: c:\temp\abc123\a\pigs.xml
Absolute UNC Path: \\?\c:\temp\abc123\a\pigs.xml
----
Size in bytes: 24576
Relative Path: a\Setup.exe
Absolute Path: c:\temp\abc123\a\Setup.exe
Absolute UNC Path: \\?\c:\temp\abc123\a\Setup.exe
----
Size in bytes: 6221
Relative Path: b\dude.gif
Absolute Path: c:\temp\abc123\b\dude.gif
Absolute UNC Path: \\?\c:\temp\abc123\b\dude.gif
----
Size in bytes: 6221
Relative Path: b\dudeC.gif
Absolute Path: c:\temp\abc123\b\dudeC.gif
Absolute UNC Path: \\?\c:\temp\abc123\b\dudeC.gif
----
Size in bytes: 13
Relative Path: b\hello.txt
Absolute Path: c:\temp\abc123\b\hello.txt
Absolute UNC Path: \\?\c:\temp\abc123\b\hello.txt
----
Size in bytes: 10240
Relative Path: b\Thumbs.db
Absolute Path: c:\temp\abc123\b\Thumbs.db
Absolute UNC Path: \\?\c:\temp\abc123\b\Thumbs.db
----
(sub-directory)
Relative Path: b\yyy
Absolute Path: c:\temp\abc123\b\yyy
Absolute UNC Path: \\?\c:\temp\abc123\b\yyy
----
(sub-directory)
Relative Path: b\zzz
Absolute Path: c:\temp\abc123\b\zzz
Absolute UNC Path: \\?\c:\temp\abc123\b\zzz
----
Size in bytes: 6221
Relative Path: a\images\dudeA.gif
Absolute Path: c:\temp\abc123\a\images\dudeA.gif
Absolute UNC Path: \\?\c:\temp\abc123\a\images\dudeA.gif
----
Size in bytes: 6144
Relative Path: a\images\Thumbs.db
Absolute Path: c:\temp\abc123\a\images\Thumbs.db
Absolute UNC Path: \\?\c:\temp\abc123\a\images\Thumbs.db
----
Size in bytes: 6080
Relative Path: b\zzz\HelloWorld123.txt
Absolute Path: c:\temp\abc123\b\zzz\HelloWorld123.txt
Absolute UNC Path: \\?\c:\temp\abc123\b\zzz\HelloWorld123.txt
----
Size in bytes: 15
Relative Path: b\zzz\test123.txt
Absolute Path: c:\temp\abc123\b\zzz\test123.txt
Absolute UNC Path: \\?\c:\temp\abc123\b\zzz\test123.txt
----

Download Chilkat FileAccess ActiveX (freeware)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATFILEACCESSLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
dirTree: TCkDirTree;
success: Integer;

begin
dirTree := TCkDirTree.Create(Self);

//  Specify the root of the directory tree to be traversed.
dirTree.BaseDir := 'c:/temp/abc123';

//  Indicate that we want to recursively traverse the tree.
dirTree.Recurse := 1;

//  Begin the directory tree traversal.
success := dirTree.BeginIterate();
if (success <> 1) then
  begin
    Memo1.Lines.Add(dirTree.LastErrorText);
    Exit;
  end;

while dirTree.DoneIterating <> 1 do
  begin

    //  Examine the file or directory at the current traversal position:
    if (dirTree.IsDirectory = 1) then
      begin
        Memo1.Lines.Add('(sub-directory)');
      end
    else
      begin
        //  Note: There is also a FileSize64 property...
        Memo1.Lines.Add('Size in bytes: ' + IntToStr(dirTree.FileSize32));
      end;

    Memo1.Lines.Add('Relative Path: ' + dirTree.RelativePath);
    Memo1.Lines.Add('Absolute Path: ' + dirTree.FullPath);
    Memo1.Lines.Add('Absolute UNC Path: ' + dirTree.FullUncPath);
    Memo1.Lines.Add('----');

    //  Advance to the next file or sub-directory in the tree traversal.
    success := dirTree.AdvancePosition();
    if (success <> 1) then
      begin
        if (dirTree.DoneIterating <> 1) then
          begin
            Memo1.Lines.Add(dirTree.LastErrorText);
            Exit;
          end;
      end;
  end;

end;