using System;
using System.Collections;

class Sample {
  static void Main()
  {
    // すべての環境変数を取得
    IDictionary envvars = Environment.GetEnvironmentVariables();

    // 環境変数 'PATH' を取得・表示 (大文字小文字の違いがチェックされる点に注意)
    Console.WriteLine("PATH={0}", envvars["PATH"]);
    Console.WriteLine("Path={0}", envvars["Path"]);

    Console.WriteLine();

    // すべての環境変数を列挙して表示
    foreach (DictionaryEntry entry in envvars) {
      Console.WriteLine("{0}=>{1}", entry.Key, entry.Value);
    }
  }
}

Imports System
Imports System.Collections

Class Sample
  Shared Sub Main()
    ' すべての環境変数を取得
    Dim envvars As IDictionary = Environment.GetEnvironmentVariables()

    ' 環境変数 'PATH' を取得・表示 (大文字小文字の違いがチェックされる点に注意)
    Console.WriteLine("Path={0}", envvars("Path"))
    Console.WriteLine("PATH={0}", envvars["PATH"])
    Console.WriteLine()

    ' すべての環境変数を列挙して表示
    For Each entry As DictionaryEntry In envvars
      Console.WriteLine("{0} => {1}", entry.Key, entry.Value)
    Next
  End Sub
End Class

using System;
using System.Collections;
using System.Collections.Generic;

class Sample {
  static void Main()
  {
    // 大文字小文字の違いを無視するDictionaryを作成
    Dictionary<string, string> envvars = new Dictionary<string, string>(StringComparer.OrdinalIgnoreCase);

    // 環境変数を取得してDictionaryにコピー
    foreach (DictionaryEntry entry in Environment.GetEnvironmentVariables()) {
      envvars.Add((string)entry.Key, (string)entry.Value);
    }

    // 環境変数をコピーしたDictionaryを使って参照
    Console.WriteLine("Path={0}", envvars["Path"]);
    Console.WriteLine("PATH={0}", envvars["PATH"]);
    Console.WriteLine("path={0}", envvars["path"]);
  }
}

Imports System
Imports System.Collections
Imports System.Collections.Generic

Class Sample
  Shared Sub Main()
    ' 大文字小文字の違いを無視するDictionaryを作成
    Dim envvars As New Dictionary(Of String, String)(StringComparer.OrdinalIgnoreCase)

    ' 環境変数を取得してDictionaryにコピー
    For Each entry As DictionaryEntry In Environment.GetEnvironmentVariables()
      envvars.Add(DirectCast(entry.Key, String), DirectCast(entry.Value, String))
    Next

    ' 環境変数をコピーしたDictionaryを使って参照
    Console.WriteLine("Path={0}", envvars("Path"))
    Console.WriteLine("PATH={0}", envvars("PATH"))
    Console.WriteLine("path={0}", envvars("path"))
  End Sub
End Class

using System;
using System.IO;

class Sample {
  static void Main()
  {
    // カレントディレクトリのフルパスを取得する
    var currentdir = Path.GetFullPath(Environment.CurrentDirectory);

    // 環境変数 'PATH' にcurrentdirを追加する
    var path = Environment.GetEnvironmentVariable("PATH");

    Environment.SetEnvironmentVariable("PATH", path + Path.PathSeparator + currentdir);
  }
}

Imports System
Imports System.IO

Class Sample
  Shared Sub Main()
    ' カレントディレクトリのフルパスを取得する
    Dim currentdir As String = Path.GetFullPath(Environment.CurrentDirectory)

    ' 環境変数 'PATH' にcurrentdirを追加する
    Dim p As String = Environment.GetEnvironmentVariable("PATH")

    Environment.SetEnvironmentVariable("PATH", p + Path.PathSeparator + currentdir)
  End Sub
End Class

using System;
using System.Collections.Generic;
using System.IO;

class Sample {
  static void Main()
  {
    // 環境変数 'PATH' に設定されているパスを分割してListにする
    var paths = new List<string>(Environment.GetEnvironmentVariable("PATH").Split(Path.PathSeparator));

    // Listにカレントディレクトリのフルパスを追加する
    paths.Add(Path.GetFullPath(Environment.CurrentDirectory));

    // Listの内容を再結合して環境変数 'PATH' に設定しなおす
    Environment.SetEnvironmentVariable("PATH", string.Join(Path.PathSeparator.ToString(), paths));
  }
}

Imports System
Imports System.Collections.Generic
Imports System.IO

Class Sample
  Shared Sub Main()
    ' 環境変数 'PATH' に設定されているパスを分割してListにする
    Dim paths As New List(Of String)(Environment.GetEnvironmentVariable("PATH").Split(Path.PathSeparator))

    ' Listにカレントディレクトリのフルパスを追加する
    paths.Add(Path.GetFullPath(Environment.CurrentDirectory))

    ' Listの内容を再結合して環境変数 'PATH' に設定しなおす
    Environment.SetEnvironmentVariable("PATH", string.Join(Path.PathSeparator.ToString(), paths))
  End Sub
End Class