GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    log
Go
Novo
Procurar
Notificar
Ferramentas
Responder
  
-star Rating Vote!  Login/Cadastrar 
Estagiário

postado
ola pessoal
uso esse codigo para gerar log em txt
Open "C:\log3.txt" For Append As #1
Print #1, "Usuario: "; UsuárioAtual; " entrou no sistema as: " & Now()
Close #1

gostaria onde esta log3.txt , fosse alterado para log19112008.txt e assim por diante

acho que fui claro na minha duvida.
 
Postagens: 56 | Registrado: 22 May 2007Reply With QuoteEditar ou Apagar MensagemReport This Post
Gerente

Figura de  rogerio oliveira
postado Hide Post
Name "c:\log3.txt" As "c:\log19112008.txt"


Rogério Oliveira
"A inteligência artificial não é páreo para a estupidez natural."
http://www.vhumano.com.br
 
Postagens: 2516 | Localização: Guarulhos - SP | Registrado: 03 February 2005Reply With QuoteEditar ou Apagar MensagemReport This Post
Estagiário

postado Hide Post
ola Rogerio Oliveira

consegui resolver o problema com esse codigo

Dim VarDate as long
vardate = day(date) & month(date) & year(date)
Open "C:\log" & vardate & ".txt" For Append As #1

muito obrigado pela sua atenção
a sua dica tambem funcionou , mas para alterar
o nome do arquivo gerado.

mais uma vez muito obrigado
 
Postagens: 56 | Registrado: 22 May 2007Reply With QuoteEditar ou Apagar MensagemReport This Post
Gerente

Figura de  rogerio oliveira
postado Hide Post
A pensei que vc quizesse alterar o nome do arquivo, para fazer isso que vc postou naõ precisa tanta ginástica:

Open "C:\log" & Format(now,"ddmmyyyy") & ".txt" For Append As #1


Rogério Oliveira
"A inteligência artificial não é páreo para a estupidez natural."
http://www.vhumano.com.br
 
Postagens: 2516 | Localização: Guarulhos - SP | Registrado: 03 February 2005Reply With QuoteEditar ou Apagar MensagemReport This Post
Estagiário

postado Hide Post
ola Rogerio

muito obrigado pela dica , tambem funcionou

ate aproxima
 
Postagens: 56 | Registrado: 22 May 2007Reply With QuoteEditar ou Apagar MensagemReport This Post
 Tópico Anterior | Próximo Tópico Powered by Eve For Enterprise  
 

GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    log

©