(Delphi ActiveX) Directory Existence Check

How to test if a directory exists on an FTP server.

A good way to check to see if a directory already exists is to try to "cd" to that remote directory by calling ChangeRemoteDir. If it succeeds, then the directory exists. If not, then it does not exist. An alternative method is to set the ListPattern = "*" and then iterate over the files/directories, looking for the directory.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
dirExists: Integer;
i: Integer;
n: Integer;
isDir: Integer;
fname: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

ftp := TChilkatFtp2.Create(Self);

ftp.Hostname := 'ftp.example.com';
ftp.Username := 'login';
ftp.Password := 'password';

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

// Does the "temp" directory exist?

dirExists := ftp.ChangeRemoteDir('/temp');
if (dirExists = 1) then
  begin
    Memo1.Lines.Add('Yes, the temp directory exists.');
    //  Yes, it exists. Restore the current remote dir:
    success := ftp.ChangeRemoteDir('..');
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ftp.LastErrorText);
        Exit;
      end;
  end;

// Alternatively, you may set the ListPattern = "*" and 
//  look for the directory:
ftp.ListPattern := '*';

n := ftp.GetDirCount();
if (n < 0) then
  begin
    // Failed to get directory listing based on ListPattern
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;
if (n > 0) then
  begin
    for i := 0 to n - 1 do
      begin

        isDir := ftp.GetIsDirectory(i);
        if (isDir = 1) then
          begin

            fname := ftp.GetFilename(i);
            if (fname = 'temp') then
              begin
                Memo1.Lines.Add('Found temp directory!');
                success := ftp.Disconnect();
                Exit;
              end;
          end;
      end;

  end;

success := ftp.Disconnect();
end;