Estoy probando ya que no tengo de donde ver ejemplos en concreto y este programa no me esta devolviendo el array con los archivos que tengo en mi ftp
- Code: Select all Expand view
- msgRun( "Conectando al ftp", "Momento por favor...", ;
{ || oInternet := TInternet():New(), ;
IF( Empty( oInternet:hSession ), ;
MsgAlert( "No hay internet" ), ), ;
oFtp := TFTP():New( cFtp, oInternet, cUsuario, cPassword ) } )
IF ! Empty( oFtp:hFTP )
ftpsetcurrentdirectory(oFtp:hFTP, "./uno/")
amask := { "*.*" }
afiles := oFtp:Directory(amask[ 1 ] )
VIEW afiles
ELSE
? "vacio"
ENDIF
oInternet:END()
en mi ftp dentro de la carpeta "uno" existe un solo achivo "antedecende.pdf"
gracias.