Bajar un archivo de internet con visual basic

Article View: chile.comp.programacion

Article #2812

Back to chile.comp.programacion Previous Next

#2812

From: Manuel Villarroel
Date: Wed, 21 Sep 2005 18:45

20 lines
1832 bytes

Alguien sabe como se hace esto? Al intenter el siguiente codigo me aparece
un error,

Sub bajarArchivo()
    Dim bytes() As Byte
   'aqui no puede crear el objeto
    Dim inet As New InetCtlsObjects.Inet
    Dim url As String
    url = "http://www.dcc.uchile.cl/~mavillar/frases.txt"
    bytes() = inet.OpenURL(url, icByteArray)
    'copiar los bytes a un archivo...
End Sub

Aparece :"El componente ActiveX no puede crear el objeto"
Al principio no tenia el archivo del activex en mi pc (msinet.ocx),
lo descargue (a windows\system32) y lo registre con el comando
"Regsvr32 MSINET.ocx" y aun asi me aparece este error.
Alguna ayuda?

Gracias de antemano

Technical Details

Message-ID: <dgs9oo$l12$1@helcaraxe.dcc.uchile.cl>

Path:

arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!atl-c02.usenetserver.com!news.usenetserver.com!atl-c04.usenetserver.com!news.usenetserver.com!newsfeed.media.kyoto-u.ac.jp!diablo.efnet.com!efnet.com!nntp-server.pubsub.com!news1.nivel5.cl!news.cec.uchile.cl!news.uchile.cl!helcaraxe.dcc.uchile.cl!not-for-mail

Show Full Headers

Complete Article Headers

X-Google-Thread: 1593cb,a1b176e819b8e1de,start
X-Google-Attributes: gid1593cb,public
X-Google-Language: SPANISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news1.google.com!news3.google.com!border1.nntp.dca.giganews.com!nntp.giganews.com!atl-c02.usenetserver.com!news.usenetserver.com!atl-c04.usenetserver.com!news.usenetserver.com!newsfeed.media.kyoto-u.ac.jp!diablo.efnet.com!efnet.com!nntp-server.pubsub.com!news1.nivel5.cl!news.cec.uchile.cl!news.uchile.cl!helcaraxe.dcc.uchile.cl!not-for-mail
From: "Manuel Villarroel" <someone@somewhere.com>
Newsgroups: chile.comp.programacion
Subject: Bajar un archivo de internet con visual basic
Date: Wed, 21 Sep 2005 14:45:28 -0400
Organization: DCC - Universidad de Chile
Lines: 22
Message-ID: <dgs9oo$l12$1@helcaraxe.dcc.uchile.cl>
NNTP-Posting-Host: anakena.dcc.uchile.cl
X-Trace: helcaraxe.dcc.uchile.cl 1127328344 21538 192.80.24.6 (21 Sep 2005 18:45:44 GMT)
X-Complaints-To: newsmaster@dcc.uchile.cl
NNTP-Posting-Date: Wed, 21 Sep 2005 18:45:44 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1106
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106