如何用VB访问并设置环境变量

　　 

环境变量对于Windows系统来说非常重要，每个环境变量包含一个名称和一个值。你可以在命令行窗口键入Set命令来查看当前的环境变量配置情况。这些变量都属于全局性的，任何程序都可以使用这些变量。

大多数环境变量都是与系统有关的，不过你也可以为自己的VB程序设定一个环境变量。由于环境变量对于所有程序都可用，当你需要对多个程序设置某些选项或操作参数时，环境变量非常有用。


有两种方法可以建立或修改环境变量。第一种方法是在批处理文件，如Autoexec.bat中加入以下Set指令：

Set varname=value

另一种方法是通过控制面板中的系统图标来实现。在“系统”中的“高级”选项卡中，点击“环境变量”按钮，然后使用窗口中的相应按钮完成新建、编辑或删除环境变量的工作。需要注意的是，在Windows NT/2000/XP系统中，还有一个叫做“用户变量”的变量，它只对当前用户有效（也可以被当前用户修改），而“系统变量”则只能由具有管理员权限的用户进行添加或修改。

要想在VB程序中访问环境变量，你需要使用Environ函数。该函数有两种使用方法。如果你向该函数传递变量名称，函数会返回该变量的值，如果该变量未定义，则返回一个空字符串。如果你向该函数传递一个数字，它会返回该数字对应位置的整个环境变量串（变量名称、等号标志、变量值）。如果该数字对应的位置没有变量，则函数返回一个空字符串。以下代码可以在Message Box中显示全部的环境变量：

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

通过Environ函数，你的VB程序可以检索全部的环境变量，并可以选择其中有用的变量进行利用。


--------------------------------------------------------------------------------
作者：Peter Aitken。自从Visual Basic 1.0版问世以来，Peter Aitken就一直在使用VB编程。他已经编写过很多关于VisualBasic以及其他计算机和编程方面的书籍和杂志文章了。 

原文转自：http://www.ltesting.net