vb6 - ResolvePath for VB6 - 解析环境变量

Question

我正在 VB6(或某些 WinAPI)中寻找一个可能能够满足此要求的函数:获取包含环境变量的输入路径字符串，并输出解析了环境变量的路径。

例如:

输入:"%windir%\System32\"

输出:"C:\Windows\System32\"

我当然可以编写自己的解析器，但我想知道这个功能是否已经存在？

这将类似于 Spring Framework's " ResolvePath " method .

Answer 1

Kernel32.dll 导出一个名为 ExpandEnvironmentStrings 的函数:

我的 VB6 生锈了，但您可以通过执行以下操作来调用它:

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

然后在函数或子函数中:

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)