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:
Cita: 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