Ler arquivos de diretório FTP

[Eroni]

Bom dia, alguem sabe me informar o por quê do exemplo abaixo não funcionar?

Pior que testei e funcionava, de repente não funciona mais, será alguma coisa do Windows 8?

Abraços.

// Testing the FiveWin new Internet Classes

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

local oInternet := TInternet():New()
// local oFTP := TFTP():New( "ftp.microsoft.com", oInternet ) // Microsoft FTP
local oFTP := TFTP():New( "www.cratus.net.br", oInternet,"cratus","d92m57vt9835" )
local aFiles

if ! Empty( oFTP:hFTP )
// aFiles = oFTP:Directory( "*.*" )
aFiles = oFTP:Directory( "/public_html/*.*" )
AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ], aFile[ 3 ] ) } )
else
MsgAlert( "oFTP:hFTP is null" )
endif

oInternet:End()

MsgInfo( "Done!" )

return nil

//----------------------------------------------------------------------------//

[aferra]

pode ser o servidor onde está hospedado. servidores linux tem diferença entra maiúsculas e minusculas.

[Eroni]

Obrigado Alessandro, mas isso tudo eu já chequei, inclusive testando o exemplo original, site microsoft.

[Valdir]

Olá Eroni...

Já tive e ainda, as vezes, tenho problemas com os Servidores de Internet quando se trata de FTP.

Não sei porquê, do nada eles alteram as permissões das pastas e isso acarreta erros na troca de arquivos.

Verifique com o seu provedor se não é esse o caso.

abraços.

[Eroni]

Olá, Valdir e a todos, o in acreditável aconteceu, simplesmente cheguei em casa e funcionou, todos os exemplos funcionando ok, só posso concluir é que deve ser alguma coisa na internet do meu escritorio, que é da mesma operadora, por sinal.

Abraços a todos

[Marca]

Heheheh

Eroni ; Agora eu quero ver vc explicar isso ao cliente.

Problemas como este é que são complicados de lidar.

[aferra]

hehehe pois.é, ai o programa do vizinho não acontece ( ou não fala né? ) rsrsrsrsrsrs

isso pode Arnaldo!!! rsrsrsrsrsrsrs

[Eroni]

É isso tudo ai e mais um pouco, mas por sorte estou testando nos clientes e lá funciona também, então melhor deixar quieto..hehehe

Abraços a todos.