ResolvePath per VB6 - risoluzione delle variabili di ambiente

Question

Sto cercando una funzione in VB6 (o alcuni WinAPI) che potrebbe essere in grado di soddisfare questo requisito: Prendere una stringa di percorso di input che include variabili di ambiente e generare quel percorso con le variabili di ambiente risolte .

Ad esempio:

• ingresso: "%windir%\System32\"
• uscita: "C:\Windows\System32\"

Potrei ovviamente scrivere il mio parser, ma mi chiedo se questa funzionalità esiste già?

Questo sarebbe simile allo Spring Framework's "ResolvePath" method.

Answer 1

caso peggiore che si può utilizzare l'applicazione nativa: ExpandEnvironmentStrings

Answer 2

Utilizzando l'usato raramente Environ() Funzione: http://vbcity.com/forums/t/45987.aspx

Answer 3

Kernel32.dll esporta una funzione chiamata ExpandEnvironmentStrings:

mio VB6 è arrugginito, ma puoi chiamare questo facendo:

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

Quindi in una funzione 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)