Problemas con oFTP:List()
Posted: 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"
Next r
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