Get Number of FIles in Directory, not including sub-directories

Delphi example demonstrating how to get the number of files in a directory not including sub-directories.

Download 32-bit Chilkat FTP2 ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
i: Integer;
n: Integer;
fileCount: Integer;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
    Exit;
  end;

ftp.Hostname := 'www.myFtpServer.com';
ftp.Username := '****';
ftp.Password := '****';

//  Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);
    Exit;
  end;

//  The ListPattern property is our directory listing filter.
//  The default value is "*", which includes everything.
Memo1.Lines.Add(ftp.ListPattern);

//  Fetch the current remote directory contents by
//  accessing the NumFilesAndDirs property.

n := ftp.NumFilesAndDirs;
if (n < 0) then
  begin
    ShowMessage(ftp.LastErrorText);
    Exit;
  end;
if (n > 0) then
  begin
    //  Loop over the directory contents, incrementing the count
    //  each time it is NOT a directory.
    fileCount := 0;
    for i := 0 to n - 1 do
      begin

        //  Is this NOT a sub-directory?
        if (ftp.GetIsDirectory(i) <> 1) then
          begin
            fileCount := fileCount + 1;
            //  Display the filename
            Memo1.Lines.Add(ftp.GetFilename(i));
          end;

      end;

    Memo1.Lines.Add('Total number of files = '
         + IntToStr(fileCount));
  end;

ftp.Disconnect();
end;