Problemas con INET
Publicado por kiko (11 intervenciones) el 20/11/2009 10:18:35
Hola, estoy utilizando el control INET para poder descargarme a mi equipo una base de datos que tengo ubicada en un FTP. Me conecta todo bien y correctamente, pero no consigo a bajarme la base de datos. Os adjunto como tengo el código por si alguien ve alguna deficiencia o me indica alguna otra forma de hacerlo. Gracias.
With Inet1
.AccessType = icUseDefault
.url = "ftp://11.230.10.248/"
.UserName = "aaaa"
.Password = "xxx"
End With
Dim txt_local As String
txt_local = App.Path + "\MDBEquipo.mdb"
Me.MousePointer = vbHourglass
Call Inet1.Execute(, "GET MDBServidor.mdb" & txt_local)
Me.MousePointer = vbDefault
With Inet1
.AccessType = icUseDefault
.url = "ftp://11.230.10.248/"
.UserName = "aaaa"
.Password = "xxx"
End With
Dim txt_local As String
txt_local = App.Path + "\MDBEquipo.mdb"
Me.MousePointer = vbHourglass
Call Inet1.Execute(, "GET MDBServidor.mdb" & txt_local)
Me.MousePointer = vbDefault
Valora esta pregunta


0