Mensajes

[C:\WINDOWS\Escritorio]

Hola,
Puedes hacer lo siguiente:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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.

[¿Alguien sabe con que API o con qué método podría modificar esto de las propiedades del internet explorer?:]

Hola,

¿Alguien sabe con que API o con qué método podría modificar esto de las propiedades del internet explorer?:

...Desde VB 6.0 claro... me resolverian muchos problemas si me ayudasen.

PD: ¿Y para hacerlo tambien con Firefox?
Es decir, igual que IE tiene esa propiedad, Firefox tambien, pues modificarlo...
No importa si no es mediante una API, da igua que sea mediante el registro de windows,
mientras pueda cambiarlo me conformo...Gracias.

Saludos.