Método para fazer log em arquivo texto em projetos MS Access

Public Sub log(Optional ByVal s1 As String, Optional ByVal s2 As String, Optional ByVal s3 As String, _
Optional ByVal s4 As String, Optional ByVal s5 As String, Optional ByVal s6 As String, Optional ByVal s7 As String, _
Optional ByVal s8 As String, Optional ByVal s9 As String, Optional ByVal s10 As String, Optional ByVal s11 As String, _
Optional ByVal s12 As String, Optional ByVal s13 As String, Optional ByVal s14 As String, Optional ByVal s15 As String, _
Optional ByVal s16 As String, Optional ByVal s17 As String, Optional ByVal s18 As String, Optional ByVal s19 As String, _
Optional ByVal s20 As String, Optional ByVal s21 As String, Optional ByVal s22 As String, Optional ByVal s23 As String, _
Optional ByVal s24 As String, Optional ByVal s25 As String)
 'http://msdn.microsoft.com/en-us/library/office/gg264278(v=office.15).aspx
 Dim folder As String
 folder = Application.CurrentProject.path & "\"
 
 
 Dim file As String
 file = Dir(folder & "*.txt")
 
 Open folder & "log.txt" For Append As #1
 Print #1, s1, s2, s3, s4, s5, s6, s7, s8, s9, s10, s11, s12, s13, s14, s15, s16, s17, s18, s19, s20, s21, s22, s23, s24, s25
 Close #1
End Sub
Anúncios
Esta entrada foi publicada em MS Access, Visual Basic 6.0 e VBA com as etiquetas , . ligação permanente.

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s