OPENURL TYPE MISMATCH

JULIAO41 19/04/2011 10:34:33
#371833
Ola Pessoal sou novo no forum e estou com o seguinte problema

Preciso acessar um endereco ftp que contem alguns arquivos

estou utilizando o seguinte codigo:

Dim arqDown() As Byte
Dim ArqUrl as String

ArqUrl=[Ô]ftp://comf.com.br/comf/web/autoexec.bat[Ô]

arqDown() = itcFTP.OpenURL(ArqURL, icByteArray)

Open Arqtemp For Binary Access Write As #1
Put #1, , arqDown
Close #1
MsgBox [Ô]O arquivo recebido com sucesso ! [Ô], vbInformation
Download = True

Exit Function

Acontece que sempre esta me retornando o erro 13 [Ô]type mismatch[Ô]

Alguem sabe o que pode estar acontecendo

Agradeço desde ja
FNANDOOD 19/04/2011 10:44:01
#371835
acho que faltou declarar alguma variavel

voce declarou dim Download as boolean
JULIAO41 19/04/2011 10:48:29
#371838
Declarei sim

o erro ja da na hora de executar o openurl
JULIAO41 19/04/2011 15:14:33
#371885
Eu mudei a variavel de
Dim arqDown() as Byte para
Dim arqDown as variant

ele não deu o erro porem o conteúdo ficou EMPTY!


Alguem ja passou por isso
XXXANGELSXXX 19/04/2011 15:29:52
#371887
em vez de pegar e abrir esse arquivo bat, abra um arquivo txt, coloque um arquivo txt no lugar..e nos passe como ficou..
JULIAO41 19/04/2011 15:53:24
#371889
Inclui o arquivo soja.txt no ftp

ocorreu o mesmo erro

eu fiz o seguinte teste

If itcFTP.OpenURL(ArqURL, icByteArray) > 0 Then

e nesse caso ele esta retornando EMPTY

o problema creio eu esta no retorno que esta vindo vazio
JULIAO41 19/04/2011 15:55:28
#371890
Sera que seria alguma configuração do Inet?


Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar