環(huán)境變量對(duì)于Windows系統(tǒng)來(lái)說(shuō)非常重要，每個(gè)環(huán)境變量包含一個(gè)名稱和一個(gè)值。你可以在命令行窗口鍵入Set命令來(lái)查看當(dāng)前的環(huán)境變量配置情況。這些變量都屬于全局性的，任何程序都可以使用這些變量。

大多數(shù)環(huán)境變量都是與系統(tǒng)有關(guān)的，不過(guò)你也可以為自己的VB程序設(shè)定一個(gè)環(huán)境變量。由于環(huán)境變量對(duì)于所有程序都可用，當(dāng)你需要對(duì)多個(gè)程序設(shè)置某些選項(xiàng)或操作參數(shù)時(shí)，環(huán)境變量非常有用。


有兩種方法可以建立或修改環(huán)境變量。第一種方法是在批處理文件，如Autoexec.bat中加入以下Set指令：

Set varname=value

另一種方法是通過(guò)控制面板中的系統(tǒng)圖標(biāo)來(lái)實(shí)現(xiàn)。在“系統(tǒng)”中的“高級(jí)”選項(xiàng)卡中，點(diǎn)擊“環(huán)境變量”按鈕，然后使用窗口中的相應(yīng)按鈕完成新建、編輯或刪除環(huán)境變量的工作。需要注意的是，在Windows NT/2000/XP系統(tǒng)中，還有一個(gè)叫做“用戶變量”的變量，它只對(duì)當(dāng)前用戶有效（也可以被當(dāng)前用戶修改），而“系統(tǒng)變量”則只能由具有管理員權(quán)限的用戶進(jìn)行添加或修改。

要想在VB程序中訪問(wèn)環(huán)境變量，你需要使用Environ函數(shù)。該函數(shù)有兩種使用方法。如果你向該函數(shù)傳遞變量名稱，函數(shù)會(huì)返回該變量的值，如果該變量未定義，則返回一個(gè)空字符串。如果你向該函數(shù)傳遞一個(gè)數(shù)字，它會(huì)返回該數(shù)字對(duì)應(yīng)位置的整個(gè)環(huán)境變量串（變量名稱、等號(hào)標(biāo)志、變量值）。如果該數(shù)字對(duì)應(yīng)的位置沒(méi)有變量，則函數(shù)返回一個(gè)空字符串。以下代碼可以在Message Box中顯示全部的環(huán)境變量：

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

通過(guò)Environ函數(shù)，你的VB程序可以檢索全部的環(huán)境變量，并可以選擇其中有用的變量進(jìn)行利用。


--------------------------------------------------------------------------------
作者：Peter Aitken。自從Visual Basic 1.0版問(wèn)世以來(lái)，Peter Aitken就一直在使用VB編程。他已經(jīng)編寫過(guò)很多關(guān)于VisualBasic以及其他計(jì)算機(jī)和編程方面的書籍和雜志文章了。