últimos mensajes de: ViRuSh

Hola,
Puedes hacer lo siguiente:

Código:

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

'***********************************************************
'Función para obtener el nombre de usuario del sistema
Private Function Usuario_Windows() As String
    Dim sBuffer As String
    Dim lSize As Long
    Dim sUsuario As String
    
    sBuffer = Space$(260)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
        sUsuario = Left$(sBuffer, lSize)
        'Quitarle el CHR$(0) del final...
        lSize = InStr(sUsuario, Chr$(0))
        If lSize Then
            sUsuario = Left$(sUsuario, lSize - 1)
        End If
    Else
        sUsuario = ""
    End If
    Usuario_Windows = sUsuario
End Function
'Fin de Función
'***********************************************************

Y para crear el fichero pones:

Código:

Open "C:\Documents and Settings\" & Usuario_Windows & "\Escritorio\" & "Ejemplo.txt" For Append As #1
        Write #1, Text1.Text
        Close #1

He mirado la carpeta esa a la que lleva y está vacía,
por tanto he de suponer que no va a funcionar...no estoy seguro.

Yo te recomiendo que lo guardes en: C:\WINDOWS\Escritorio
que viene a ser lo mismo y funciona a la perfeccion.

Salu2.