Ver Mensaje Individual
  #1  
Antiguo 22-01-2010
marilinspi marilinspi is offline
Miembro
 
Registrado: ene 2007
Posts: 136
Reputación: 18
marilinspi Va por buen camino
Bajar varios archivos de internet con idFTP

hola, ya he logrado subir todos mis archivos a internet son como 30... recorri mi carpeta 'prueba' y fui subiendo de a uno, mediante
Código:
var
 sr: TSearchRec;
 Directorio:String;
begin
 Directorio:='C:\prueba\';
 if idFTP1.Connected then
 begin
   if FindFirst(Directorio + '*', faAnyFile, sr) = 0 then
     repeat
       if (sr.Attr and faDirectory = 0) or (sr.Name <> '.')and (sr.Name <> '..') then
         idFTP1.Put(Directorio + sr.Name, 'public_html/Descargas/pruebas/'+ sr.Name);  
     until FindNext(sr) <> 0;
   FindClose(sr);
   idFTP1.Disconnect;
   ShowMessage('Fichero subido.');
 end;
end;
ahora lo que necesito es bajar todos esos archivos...y lo que no se es como recorrer el directorio en la web para ir bajando de a uno. Gracias desde ya.
Responder Con Cita