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

发表于:2007-06-21来源:作者:点击数: 标签:
环境变量对于 Windows 系统来说非常重要,每个环境变量包含一个名称和一个值。你可以在命令行窗口键入Set命令来查看当前的环境变量配置情况。这些变量都属于全局性的,任何程序都可以使用这些变量。 大多数环境变量都是与系统有关的,不过你也可以为自己的 V

   


环境变量对于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