Obtener ruta de carpeta de usuario (VB6)

[Hardrive]

Hola a todos

Necesitaría saber como puedo obtener la ruta de la carpeta de usuario (C:\Documents and Settings\**Usuario**) con una función o de alguna otra manera.

Aclaro que el método de obtener el nombre de usuario con el advapi32 y agregarlo al final de "Documents and settings" no me es útil en este caso, ya que si por algún motivo el nombre de la carpeta es diferente al del usuario (muy común cuando se cambia el nombre de la cuenta de usuario) no me servirá.

Gracias de antemano

Salu2

[Hardrive]

Hola otra vez

Bueno ya he podido progresar un poco y he obtenido la ruta de %userprofile% con el siguiente codigo, el nuevo problema es que no puedo combinar esa ruta con otras palabras, aquí va el código:

Option Explicit

Private Const TOKEN_QUERY = (&H8)
"GetUserProfileDirectoryA" (ByVal hToken As Long, ByVal lpProfileDir As String, lpcchSize As Long) As Boolean
Private Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long

Private Sub Command1_Click()
Dim path As String
Dim sBuffer As String, Ret As Long, hToken As Long
sBuffer = String(255, 0)
OpenProcessToken GetCurrentProcess, TOKEN_QUERY, hToken
GetUserProfileDirectory hToken, sBuffer, 255
path = sBuffer & "\Datos de programa"
msgbox path
End Sub

El problema es que en vez de mostrar "C:\Documents and Settings\Usuario\Datos de programa" muestra "C:\Documents and Settings\Usuario". ¿Alguien sabe porqué es y como resolverlo?

Salu2

[Hardrive]

¿Alguien puede ayudarme?

[jrl840]

Queo nda yo trabtaba de consegiuor algo parecido al o que ustedes quieren y lo logre de est amanera...

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

Private Sub Form_Load()
'Para saber el usuario actual de Windows
Dim NombreUsuario As String

NombreUsuario = String$(200, " ")

nNom1 = GetUserName(NombreUsuario, 200) 'Nombre de usuario actual
nNom2 = Left(NombreUsuario, 200)
nNom3 = Trim(nNom2) 'Nombre de usuario actual sin espacios
nLen = Len(nNom3) - 1 'Len del nombre de usuario sin el ultimo caracter
nNom5 = Mid(nNom3, 1, nLen) 'Nombre de usuario actual

nRuta = "C:\Documents and Settings\" & nNom5 & "\Menú Inicio\Programas\Inicio"
Me.Caption = nRuta

MsgBox nRuta
End Sub

[agus0]

Lo mas Facil:

Código:

MsgBox Environ("Userprofile")

Usando Environ

Es decir:

Código:

Environ("Userprofile")

es = a UNIDAD:\Documents and Settings\NOMBRE [Si fuese XP]
si Fuese vista UNIDAD:\usuario\NOMBRE

[seba123neo]

Hola, sino tambien podes usar una api para obtener las carpetas especiales del sistema...

saludos.