IDFtp chequear si un directorio esta vacio

[ecfisa]

Hola marilinspi.

Un modo es:

Código Delphi [-]
...
uses IdFTP, IdFTPList;

function IsFtpDirEmpty(const aHost, aFolder, aUserName, aUserPass: string): Boolean;
var
  ts: TStrings;
begin
  with TidFTP.Create(nil) do
  try
    Result  := False;
    Host    := aHost;
    UserName:= aUserName;
    Password:= aUserPass;
    try
      Connect;
      if aFolder <> EmptyStr then
        ChangeDir(aFolder);
      ts:= TStringList.Create;
      try
        List(ts, '*.*', False);
        Result:= ts.Count = 0;
      finally
        ts.Free;
      end;
    except
      raise Exception.Create('Error al conectar con ' + aHost);
    end;
  finally
    Free;
  end;
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.btnCheckFilesClick(Sender: TObject);
var
  Host, Folder: string;
  Name, Pass: string;
begin
  Host  := 'ftp.swfwmd.state.fl.us';
  Folder:= ''; 
  Name  := 'anonymous';
  Pass  := '[email protected]';
  if IsFtpDirEmpty(Host, Folder, Name, Pass) then
    ShowMessage('No existen archivos en la carpeta')
  else
    ShowMessage('Existen archivos en la carpeta');
end;

Saludos