bien... pues he notado que hay grandes mentes programadoras en este foro asi que posteo una duda que tengo respecto a un programita o mas bien una aplicacion que estoy tratando de realizar...pues en si la aplicacion es muy simple.. solamente es que al ejecutarse cree un arxivo y lo suba a un ftp cada cierto tiempo, en si es muy simple...el problema viene al moemnto de que suba el arxivo al ftp, pues noto que el programa en momento de ejecucion se conecta al ftp pero, no sube el arxivo, aki pongo el codigo haber en que me pueden ayudar vale...
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
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.
Mostrar Temas
