¿qué falla en esta línea de código?
Publicado por Antonio (17 intervenciones) el 16/11/2006 12:05:18
Hola. Estoy creando una función para saber el nombre de usuario que ha iniciado sesión en Windows. La función es la siguiente:
Function GetUser()
Dim Ret As Integer
Dim UserName As String
Dim Buffer As String
Buffer = New String(CChar(" "), 25)
Ret = GetUserName(Buffer, 25)
UserName = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
MsgBox(UserName)
End Function
Me da error en esta línea:
UserName = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
En teoría no existe la función Left pero en los tutoriales que he leído dice que sí que existe. ¿Alguien sabe si la estoy escribiendo mla? Un saludo.
Function GetUser()
Dim Ret As Integer
Dim UserName As String
Dim Buffer As String
Buffer = New String(CChar(" "), 25)
Ret = GetUserName(Buffer, 25)
UserName = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
MsgBox(UserName)
End Function
Me da error en esta línea:
UserName = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
En teoría no existe la función Left pero en los tutoriales que he leído dice que sí que existe. ¿Alguien sabe si la estoy escribiendo mla? Un saludo.
Valora esta pregunta


0