IdFTP - Como saber se o diretorio no servidor está vazio?

Delphi

30/07/2012

Se existir no mínimo 1 arquivo no diretório tudo funciona bem, porem se o diretório estiver vazio, dá erro, pois o comando:

DirList := TstringList.Create;
IdFTP1.list(DirList,*.*,false);

não carrega nada no DirList, e mesmo tentando checar:

if DirList.Count > 0

dá erro nessa linha.

Como checar antes de tudo isso, se o diretório estávazio ou não?

Agradeço por qualquer ajuda.
Clovis Perazza

Clovis Perazza

Curtidas 0

Respostas

William

William

30/07/2012

Colega teste esse código, esse evento é disparado quando o download é iniciado:

procedure TForm1.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
   const AWorkCountMax: Integer);
begin
  if AWorkCountMax =  0 then   // se for 0 não existe o arquivo no FTP ou ele esta vazio 
     begin
         showmessage(arquivo  não encontrado);
         exit;
     end;
end;


Essa dica é do site scriptbrasil..
GOSTEI 0
Clovis Perazza

Clovis Perazza

30/07/2012

Obrigado wllfl pela dica, porem, esse evento não é disparado somente quando se inicia o donwload, mas tambem quando se conecta ao servidor, e mesmo existindo arquivos no servidor, a mensagem da inexistencia tambem é mostrada.
Mesmo assim te agradeço.
Abraços.
GOSTEI 0
POSTAR