如何用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.anti-gravitydesign.com