Subir archivos pot ftp a traves de internet transf
Publicado por ivan (29 intervenciones) el 19/03/2004 17:24:48
Hoola,
Tengo un problemilla con internet transfer, el método execute no me va, sin embargo el openURL si que me va. Esto está bien para el que desea recibir datos pero para poder subirlos no puedo.
Os dejo el cogido con el que intento entrar:
With Inet1
'Dirección
.URL = "ftp://ftp.xxxxxx.xx"
'Login y clave
.UserName = "xxxxxxxxx"
.Password = "xxxxxxxxx"
.Protocol = icFTP
'Acceso al proxy
.Proxy = "xxx.xxxx.xxx.xxx"
.AccessType = icNamedProxy
.Document = "/xxx/xxx/datos" & Format(Now , "yyyymmdd")
End With
Dim Dir As String
Dir = "FTP"
'Creamos la ruta
ruta = "FTP\datos" & Format(Now, "yyyymmdd") & ".txt"
Inet1.Object
Inet1.Execute , "SEND " & ruta & " /" & Format(Now, "yyyymmdd") & ".txt"
MsgBox "El proceso de datos subida de datos ha terminado satisfactoriamente"
Alguien me puede ayudar, es urgente
Tengo un problemilla con internet transfer, el método execute no me va, sin embargo el openURL si que me va. Esto está bien para el que desea recibir datos pero para poder subirlos no puedo.
Os dejo el cogido con el que intento entrar:
With Inet1
'Dirección
.URL = "ftp://ftp.xxxxxx.xx"
'Login y clave
.UserName = "xxxxxxxxx"
.Password = "xxxxxxxxx"
.Protocol = icFTP
'Acceso al proxy
.Proxy = "xxx.xxxx.xxx.xxx"
.AccessType = icNamedProxy
.Document = "/xxx/xxx/datos" & Format(Now , "yyyymmdd")
End With
Dim Dir As String
Dir = "FTP"
'Creamos la ruta
ruta = "FTP\datos" & Format(Now, "yyyymmdd") & ".txt"
Inet1.Object
Inet1.Execute , "SEND " & ruta & " /" & Format(Now, "yyyymmdd") & ".txt"
MsgBox "El proceso de datos subida de datos ha terminado satisfactoriamente"
Alguien me puede ayudar, es urgente
Valora esta pregunta


0