[Carmelo Cash]

Buenas noches:

necesito borrar todos los archivos de una carpeta FTP


Estoy trabajando con Delphi 7 e Indy 10

Uso el componente TidFTP para conectarme, crear carpetas, copiar archivos, borrar archivos y borrar carpetas. (Aclaro que no me deja borrar la carpeta sino está vacía.)

Y no encuentro la forma de leer todos los archivos y borrarlos.

probé con:

FTP.Delete('*.*');

Pero me dice "file not found"

Encontré en internet un método:

Código Delphi [-]
procedure TF_ftpServidores.btBorrarTodosClick(Sender: TObject);
var
  i:Integer;
  flist: TStringList;
  numDeleted: Integer;

begin
   FTP.List(flist,'*.*',true); //cargar en lista, los archivos segun la mascara '*.*', todos los archivos
   for i:=0 to FTP.DirectoryListing.count-1 do begin//recorrer el directorio
      try
        FTP.Delete(FTP.DirectoryListing[i].FileName); //borro cada elemento de la lista
      except
          memerrores.Lines.Add('Error al tratar de eliminar:  ' + FTP.DirectoryListing[i].FileName+ ' en carpeta destino' );
      end;
   end;

 //  ftp.Delete('*.*');

end;

Pero acá...
FTP.List(flist,'*.*',true); //cargar en lista, los archivos segun la mascara '*.*', todos los archivos

me dice ...
"cannot assign tstringlist to a tf_ftpServidores"

Bueno... dejo hecha la consulta.

Desde ya gracias por participar de foro.

Saludos