Arquivo Texto

[fernandofbl 0]

estou genrando um arquivo de log ao inciar o sistema com esse codigo: If Dir(App.Path & "\" & Dia & ".log") = "" Then Set ArqLog = Fso.CreateTextFile(Dia & ".log", True)Else Set ArqLog = Fso.OpenTextFile(Dia & ".log", ForWriting, True)End IfWith ArqLog .WriteLine ("SISTEMA ACESSADOS NA MAQUINA " & PCName) .Write (" ÀS: " & Time & " NO DIA " & Date) .Write (" PELO OPERADOR: " & Login.TxtUser.Text) .CloseEnd WithSet ArqLog = Nothinge quando vou abrir o arquivo texto, aparece os seguintes caracteres:䥓呓䵅⁁䍁卅䅓佄⁓䅎䴠允䥕䅎䘠剅䅎䑎O†††ഠ 叀›㜱㐺㨲㠴丠⁏䥄⁁㔲〯⼳〲㔰倠䱅⁏偏剅䑁剏›䕆乒乁佄o que pode esta ssaindo de errado ?Por favor me ajudem, obrigado

[Luizgrs 0]

Olá,Tipo eu testei isso aqui em casa igualzinho você colocou aí e o arquivo é criado corretamente.

[fernandofbl 0]

Valeu velho, mas eu achei que era alguma variavel a qual estava querendo que saia no arquivo texto, mas eu usei o comandoopen app.path "\arquivo.log" append as 1print 1, "mensagem"e deu certinho, valeu velho