ResolvePath para VB6 - resolver variables de entorno

Question

Estoy buscando una función en VB6 (o algún WinAPI) que pueda satisfacer este requisito: tomar una cadena de ruta de entrada que incluya variables de entorno y generar esa ruta con variables de entorno resueltas .

Por ejemplo:

• de entrada: "%windir%\System32\"
• Salida: "C:\Windows\System32\"

por supuesto que podría escribir mi propio analizador, pero estoy preguntando si esta funcionalidad ya existe?

Esto sería similar al Spring Framework's "ResolvePath" method.

Answer 1

peor de los casos se puede utilizar la aplicación nativa: ExpandEnvironmentStrings

Answer 2

Utilizando el Environ() Función rara vez se utilizan: http://vbcity.com/forums/t/45987.aspx

Answer 3

Kernel32.dll exporta una función llamada ExpandEnvironmentStrings:

Mi VB6 es oxidado pero Puede llamar esto haciendo:

Declare Function ExpandEnvironmentStrings _ 
    Lib "kernel32" Alias "ExpandEnvironmentStringsA" _ 
    (ByVal lpSrc As String, ByVal lpDst As String, _ 
    ByVal nSize As Long) As Long 

Luego en una función o sub:

Dim result as Long 
Dim strInput As String, strOutput As String 
'' Two calls required, one to get expansion buffer length first then do expansion 
result = ExpandEnvironmentStrings(strInput, strOutput, result) 
strOutput = Space$(result) 
result = ExpandEnvironmentStrings(strInput, strOutput, result)