Obtener ruta de carpeta de usuario (VB6)

[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