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 := 'nameless@domainless.com';
if IsFtpDirEmpty(Host, Folder, Name, Pass) then
ShowMessage('No existen archivos en la carpeta')
else
ShowMessage('Existen archivos en la carpeta');
end;
Saludos