Estoy incursionando con la TFtp y viendo el ejemplo le agregué los siguiente con la intención de mostrar todos los datos obtenidos del directorio del server con un xBrowse:
- Code: Select all Expand view
- if ! Empty( oFTP:hFTP )
aFiles = oFTP:Directory(cFolder+ "/*.*" )
AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ], aFile[ 3 ] ) } )
else
MsgAlert( "oFTP:hFTP is null" )
endif
xBrowse(aFiles)
for f = 1 to len(aFiles)
aadd(aArray,{aFiles[f,1],aFiles[f,2],aFiles[f,3]aFiles[f,4],})
next
xBrowse(aArray)
oInternet:End()
MsgInfo( "Done!" )
return nil
La cuestión es que los MsgInfo los muestra correctamente pero tanto en el xBrowse(aFiles) como en el xBrowse(aArray) solo muestra "binary" en la primer columna que es la del nombre del archivo, y es tan extensa que hay que desplazar a la derecha para poder ver las otras tres columnas que sí muestran bien sus datos.
¿Hay alguna forma de pasar el directorio de un FTP a un array y que este pueda ser mostrado con la xBrowse?.
Gracias.
Rolando
