- Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
-
- Public Function GetEnvVar(ByVal VarName As String) As String
- Dim sVar As String, lVar As Long
- lVar = 2048 '(ceci représente le nombre max de charactères à récupérer...)
- sVar = String(lVar, 0)
- lVar = GetEnvironmentVariable(VarName, sVar, lVar)
- GetEnvVar = Left(sVar, lVar)
- End Function
-
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function GetEnvVar(ByVal VarName As String) As String
Dim sVar As String, lVar As Long
lVar = 2048 '(ceci représente le nombre max de charactères à récupérer...)
sVar = String(lVar, 0)
lVar = GetEnvironmentVariable(VarName, sVar, lVar)
GetEnvVar = Left(sVar, lVar)
End Function