ResolvePath für VB6 - Auflösung von Umgebungsvariablen

Question

Ich bin auf der Suche nach einer Funktion in VB6 (oder einigen WinAPI), die diese Anforderung erfüllen könnte: Nehmen Sie eine Eingabe Pfadzeichenfolge, die Umgebungsvariablen enthält und geben diesen Pfad mit aufgelösten Umgebungsvariablen .

Zum Beispiel:

• Eingang: "%windir%\System32\"
• Ausgang: "C:\Windows\System32\"

Ich könnte natürlich meinen eigenen Parser schreiben, aber ich frage mich, ob diese Funktionalität bereits vorhanden ist?

Dies wäre ähnlich wie die Spring Framework's "ResolvePath" method.

Answer 1

Schlimmster Fall, dass Sie die native Implementierung verwenden können: ExpandEnvironmentStrings

Answer 2

Mit der selten verwendeten Environ() Funktion: http://vbcity.com/forums/t/45987.aspx

Answer 3

Kernel32.dll exportiert eine Funktion ExpandEnvironmentStrings genannt:

Mein VB6 ist rostig, aber Sie können dies folgendermaßen tun:

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

Dann in einer Funktion oder Unter:

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)