１．環境変数に格納されている情報を取得(27_Sys_01)　(旧、SampleNo.073)

１．オペレーティングシステム環境変数に関連付けられた文字列を取得 ２．すべての環境変数の名前と値を現在のプロセスから取得 ３． ４． ５． ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．オペレーティングシステム環境変数に関連付けられた文字列を取得

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click     'Environ 関数   名前空間 : Microsoft.VisualBasic    モジュール:  Interaction     'オペレーティングシステムの環境変数に関連付けられた文字列を返します。     Dim i As Integer     For i = 1 To 50     ' 1 〜 255 の範囲         Console.WriteLine("{0:000}  {1}", i, Interaction.Environ(i))     Next     '個別に取得するには     Console.WriteLine(Interaction.Environ("windir"))    '結果　C:\Windows     Console.WriteLine(Interaction.Environ(26))          '結果　ProgramFiles=C:\Program Files (x86) End Sub 結果は、OS や環境によっても違いますので、各自の環境で確認して下さい。

２．すべての環境変数の名前と値を現在のプロセスから取得

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click     'Environment.GetEnvironmentVariables メソッド       'すべての環境変数とその値を返します。     Dim environmentVariables As IDictionary = System.Environment.GetEnvironmentVariables()     Dim d As DictionaryEntry     For Each d In environmentVariables         Console.WriteLine("{0}　=　{1}", d.Key, d.Value)     Next d '個別に取得した場合     'オペレーティングシステムのメジャーバージョン番号を取得　結果　6.3.9600.0     Console.WriteLine(System.Environment.OSVersion.Version)     'スタートメニュー のパスを取得         '結果　C:\Users\UserName\AppData\Roaming\Microsoft\Windows\Start Menu     Console.WriteLine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.StartMenu)) End Sub 結果は、OS や環境によっても違いますので、各自の環境で確認して下さい。

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)