piojoman
19 de Marzo del 2005

Hola!
Necesito que mi programa lea (dicretamente) un txt que esta alojado en mi supuesto sitio web, o bien que lo descargue a una ruta predeterminada, pero que el usuario ni se entere.
Desde ya muchas gracias!!!

MAXI
19 de Marzo del 2005

hola
usa el componente ocx "microsoft internet transfer control" inet


aqui tienes un ejemplo de como se usa

private sub DescargaArchivo()
Inet1.Execute "UrlArchivo"
end sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim strBuf As String,strArchivo as string
dim intCanal as integer

strArchivo="DireccionArchivoTxt"
Select Case State
Case 12
Do
intcanal=freefile
strBuf = Inet1.GetChunk(2024, icString)
if len(strBuf) > 0 then
open strarchivo for append as #intcanal
print #intcanal, strBuf
close #intCanal
end if
DoEvents
Loop While Len(strBuf) > 0
End Select

End Sub