Ver Mensaje Individual
  #6  
Antiguo 22-01-2010
marilinspi marilinspi is offline
Miembro
 
Registrado: ene 2007
Posts: 136
Reputación: 18
marilinspi Va por buen camino
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