Como fazer um programa em vb, que faz um log (ex.: arquivo.log), que contenha a data, hora, em que o programa foi aberto, mas que no arquivo log, não apague os dados anteriormente gravados.
Log
Started By
fabioff
, 09/09/2003, 02:12
2 replies to this topic
#1 fabioff
Posted 09/09/2003, 02:12
#2
Posted 14/09/2003, 10:40
Caro fabioof,
tente o seguinte:
Dim msalve, mleia, mpegar As String
Private Sub form_load()
On Error GoTo erro
mleia = Empty
mleia = "C:\log.txt"
Open mleia For Input As #1
Do While Not EOF(1)
Line Input #1, mleia
mpegar = mpegar + mleia
Loop
Close #1
msalve = "C:\log.txt"
Open msalve For Output As #1
Print #1, mpegar & vbCrLf & Time & " - " & Date & vbCrLf
Close #1
Exit Sub
erro:
msalve = "C:\log.txt"
Open msalve For Output As #1
Print #1, Time & " - " & Date & vbCrLf
Close #1
End Sub
Espero ter ajudado!
um abraço, Rodrigo.
tente o seguinte:
Dim msalve, mleia, mpegar As String
Private Sub form_load()
On Error GoTo erro
mleia = Empty
mleia = "C:\log.txt"
Open mleia For Input As #1
Do While Not EOF(1)
Line Input #1, mleia
mpegar = mpegar + mleia
Loop
Close #1
msalve = "C:\log.txt"
Open msalve For Output As #1
Print #1, mpegar & vbCrLf & Time & " - " & Date & vbCrLf
Close #1
Exit Sub
erro:
msalve = "C:\log.txt"
Open msalve For Output As #1
Print #1, Time & " - " & Date & vbCrLf
Close #1
End Sub
Espero ter ajudado!
um abraço, Rodrigo.
Legião Urbana Omnia Vincit
"Só existe uma maneira de deter um hacker, é pensando como ele"
Rodrigo Bytes® - Segurança da informação
"Só existe uma maneira de deter um hacker, é pensando como ele"
Rodrigo Bytes® - Segurança da informação
#3 fabioff
Posted 27/09/2003, 00:14
Muito obrigado pela dica Rodrigo, vou testar.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)