新手求教如何用VB创建系统环境变量

Question

如题，在网上找了很久只是找到如何读取和设置。求高人指点。

Answer 1

我给个读取的，设置的话部分我知道知道可以通过dos命令设置
Private Sub Command1_Click()
    Dim buf As String, msg As String, idx As Integer
    idx = 1
    Do
        buf = Environ(idx)
        msg = msg & buf & vbCrLf
        idx = idx + 1
    Loop Until buf = ""
    MsgBox msg
End Sub

Answer 2

Private Declare Function SetEnvironmentVariable Lib "kernel32" Alias "SetEnvironmentVariableA" (ByVal lpName As String, ByVal lpValue As String) As Long
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long

Answer 3

收藏了一个最简单的  拿出来给你
on error resume next 
set sysenv = CreateObject("WScript.Shell").Environment("user") 
'系统环境变量的数组对象Environment("user")或Environment("system")
msgbox sysenv("zm")        '读取变量zm
sysenv.Remove("zm")        '删除变量zm
sysenv("zm")="%USERPROFILE%\桌面"       '添加变量zm
msgbox "添加成功！",64,"提示"