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

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


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

Set varname=value

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

要想在VB程序中訪問環(huán)境變量，你需要使用Environ函數(shù)。該函數(shù)有兩種使用方法。如果你向該函數(shù)傳遞變量名稱，函數(shù)會返回該變量的值，如果該變量未定義，則返回一個空字符串。如果你向該函數(shù)傳遞一個數(shù)字，它會返回該數(shù)字對應(yīng)位置的整個環(huán)境變量串（變量名稱、等號標志、變量值）。如果該數(shù)字對應(yīng)的位置沒有變量，則函數(shù)返回一個空字符串。以下代碼可以在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

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


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