Pongo el codigo para ver si el problema viene de ahi, pero no creo.
Código
Dim Ti Private Sub Form_Load() Ti = 0 Timer1.Interval = 1000 End Sub Private Sub incremento_Click() Ti = Ti + 1 inicio.Caption = Ti Open ("prueba.txt") For Output As #1 Print #1, "IP: ", Winsock1.LocalIP Print #1, "Nombre Host: ", Winsock1.LocalHostName Print #1, "S.O --> ", SysInfo1.OSPlatform Print #1, "Version --> ", SysInfo1.OSVersion Print #1, Date, " -----> ", Time Close #1 Inet1.Execute "ftp://userass@ipuerto", "PUT prueba.txt" & Winsock1.LocalHostName & ".txt" End Sub Private Sub Timer1_Timer() Call incremento_Click End Sub
Tengo que decir que los dos pc's, tanto el de donde he heco el programa como donde tengo el servidor ftp, los tengo en LAN, es como mi pc de pruebas.
Gracias, y el problema es ese, que no logro localizar el archivo
donde sale la URL no se que le ha pasado, el programa esta puesto con este formato:
ftp : // user : pass @ ip : puerto
las he puesto con espacios que sino me hace cosas raras xd