Problemas con oFTP:List()

AidTIC · Post by **AidTIC** » Tue Jul 18, 2023 5:09 pm

Hola,

Tengo problemas con el metodo List() de tIPClientFtp

Necesito descargar unos fichero de determinados directorios del FTP, la primera vez que ejecuto el metodo List() funciona correctamente, pero la siguente me devuelve cadena vacia. con un error "200 Type set to I"

Code: Select all

For r := 1 to Len(aImagenes)
For n := 1 to len (i_Img [r])
      fDir += SUBSTR(i_Img, n, 1) +"/"
 Next n	
 l_Img := oFtp:List()
 acPro := leo_dir_img_pro (i_Img , fDir,l_Img)  
 ? oFtp:cwd( fDir ), oFtp:cReply
IF ( aPos := ASCAN(acPro , {| e | e[ "nImg" ] == i_Img } ) )  > 0  
    nImagen := fDir + i_Img + "." + acPro [aPos] ["eImg"]
    nImgCatdown := i_Img + "." + acPro [aPos] ["eImg"] 
   nLocalImag := "Temp\Productos\"+iPro+"_"+i_Img + "_" + STRTRAN(Alltrim(nPro)," ","_") +  + "." + acPro [aPos] ["eImg"] 
   Wait Window  "Descargo Imagen " + nImagen NOWait 
    IF .NOT.  oFtp:DownloadFile( nLocalImag, nImagen ) 
      MSGINFO('error' , 'NOK')
       //      oFtp:close()
          RETURN	
   		   
  EndIf

Next r