LOG

USUARIO.EXCLUIDOS 25/11/2006 18:21:22
#186257
Ola a todos

queria saber como que faço para meu programa geram um log toda vez q for executado .

ele teria que pegar a data e hora e botar ex: [25/11/2006 - 18:20]- algua mensagem

e eu queria que ele sempre ia colocando o log em linhas diferente, pq o q eu fis so usa a primeira linha.

eu quero q ele pule as linhas tipo

[25/11/2006 - 18:20]- algua mensagem
[25/11/2006 - 12:20]- algua mensagem
[12/11/2006 - 08:20]- algua mensagem
USUARIO.EXCLUIDOS 26/11/2006 13:12:03
#186271
Eu uso uma funcao que gera um arquivo .TXT onde faço um registro de tudo que acontece no sistema.
Veja exemplo no projeto para download link abaixo:

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=5853

No módulo .BAS tem o código da função que gera o LOG.

Olha a função abaixo:

Public Function funGravaAcesso(strAcao As String, strDescricao As String)
    ' Grava Arquivo com LOG de Acesso e Alteracao de Dados
    ' Entra: strAcao - Nome da Acao Executada
    '   strDescricao - Descricao da Acao
    '   strCaminho - Path e Nome do Arquivo de LOG de Acessos
    ' Autor: Roberto Marques (Email: rmarques@rmlc.com.br)
    
    ' Define Variavel FN - File Number
    Dim intFN As Integer
    intFN = FreeFile
    
    Open (strCaminhoLogs & "\" & strNomeAcesso) For Append As #intFN
    Print #intFN, "Data/Hora: " & Now & " - Versão: " & strVersao
    Print #intFN, "Usuario  : " & strNomeUsu & " - Acesso: " & strAcesso
    Print #intFN, "Ação     : " & strAcao
    Print #intFN, "Descrição: " & strDescricao
    Print #intFN, "----------------------------------------------------------"
    Close #intFN
End Function


At,
USUARIO.EXCLUIDOS 26/11/2006 13:58:34
#186272
Muito Obrigado pela ajuda
Tópico encerrado , respostas não são mais permitidas
Voltar