API call to append to system PATH

[laudy]

Hello,

Anyone know the API function to get and append to the system Path environment variable? (Windows NT/2000)

There was a post here previously that stated:

I know how to change the path using the advapi32.dll but I cannot get the path to take

... but I can't find the function that does this.

I do not need to make the change permanent, only for the duration of the process.

Thanks, Dale.

[Megatron]

To get the system directory use the GetSystemDirectory function. You can then append to it using normal VB functions.

[Serge]

Private Declare Function SetEnvironmentVariable Lib "kernel32.dll" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long
 
Private Sub Command1_Click()
    Dim strPath As String
    Dim lngRet As Long
    
    strPath = Environ("PATH")
    Call SetEnvironmentVariable("PATH", strPath & "C:\YourOtherPath;")
End Sub