Bom dia, ACP.Lacerda.
Seria algo mais ou menos assim:
Dim iFF As Integer
iFF = FreeFile
Open "c:logsArquivo_Compras.txt" For Append As iFF
Print #iFF, Now & "," & Environ$("username") & "," & Environ$("UserProfile") & "," & Environ$("ComputerName") & "," & Environ$("Logonserver") & "," & Environ$("UserDomain") & ","
Close iFF
End Sub
Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. 
Postado : 25/02/2016 9:12 am