Informacion de Usuarios que Accesaron a un Archivo en red

[oscar_igor]

Hola, tengo el siguiente codigo donde funciona todo muy bien. Este codigo me da que usuarios entraron a un determinado archivo que esta en red el problema es que los datos me los va insertando hacia la derecha y para mi es mejor que me los de hacia abajo, ya intente con varias pruebas y no mas no puedo.
Gracias por su apoyo.
Saludos


Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub ActualizarRegistro()

Dim strUserName As String, Cadena As String * 46
Dim intNúmArchivo As Integer, lngNúmRegistro As Long

strUserName = String(100, Chr$(0))
GetUserName strUserName, 100
strUserName = Left$(strUserName, InStr(strUserName, Chr$(0)) - 1)

intNúmArchivo = FreeFile(1)
Cadena = Left(Left(strUserName, 25) & String(25, " "), 25) & Now() & Chr(13) & Chr(10)

Open "P:\accesos.txt" For Random Shared As intNúmArchivo Len = 46
lngNúmRegistro = (LOF(intNúmArchivo) / 46) + 1
Put intNúmArchivo, lngNúmRegistro, Cadena

Close intNúmArchivo

End Sub

 

[oscar_igor]

Re: Informacion de Usuarios que Accesaron a un Archivo en re

Ya encontre la solucion por si alguien le interesa:

Cadena = Left(Left(strUserName, 20) & String(20, " "), 20) & Now() & Chr(13) & Chr

Gracias de todas formas
Saludos