Upload Directory Tree

Upload an entire directory tree from the local filesystem to an FTP server.

Download Chilkat FTP2 ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: 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);

  end;

ftp.KeepSessionLog := 1;

ftp.Hostname := 'ftp.chilkatsoft.com';
ftp.Username := 'myLogin';
ftp.Password := 'myPassword';

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

  end;

//  Set the current remote directory to the root where the
//  directory tree will be uploaded.
success := ftp.ChangeRemoteDir('/something');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

  end;

//  Upload the entire directory tree rooted at c:/temp/something
success := ftp.PutTree('c:/temp/something');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

  end;

ftp.Disconnect();

Memo1.Lines.Add(ftp.SessionLog);
end;