| Usuario |
Bajar archivos desde internet |
unicornio
2 Mensaje(s) |
| Enviado - 2/7/2003 |
| |
Hola, tengo la siguiente consulta, si alguien me puede ayudar:
Tengo una página web, y una aplicación en VB6....deseo que desde mi aplicación al apretar un botón, (obviamente la computadora ya deberá estar conectada a internet) baje unos archivos del sitio web a una subcarpeta donde está instalada dicha aplicación.....los archivos que se bajarán son de texto y .exe....
Muchas gracias |
| |
|
fmarredo
355 Mensaje(s)
|
| Enviado - 4/7/2003 |
| |
Podés hacerlo usando el control Internet Transfer (INet):
Sub Bajar()
Dim strURL As String
Dim bData() As Byte ' Variable de datos
Dim intFile As Integer ' Variable FreeFile
strURL = "http://www.vb2themax.com/Downloads/files/VB2HTML.zip"
intFile = FreeFile() ' Establece intFile a un nro de archivo no utilizado.
' El resultado del método OpenURL va a la matriz de bytes y ésta se guarda entonces en disco.
bData() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\VB2HTML.zip" For Binary Access Write As #intFile
Put #intFile, , bData()
Close #intFile
End Sub
|
| |
|
|
|
Microsoft Certified