using System;
using System.IO;

class Sample {
  static void Main()
  {
    // カレントディレクトリを取得・表示
    Console.WriteLine(Environment.CurrentDirectory);
    Console.WriteLine(Directory.GetCurrentDirectory());
    Console.WriteLine();



    // 新しいカレントディレクトリのパスを作成
    string currdir = Environment.CurrentDirectory;
    string workdir = Path.Combine(currdir, "workdir");

    // ディレクトリを作成
    Directory.CreateDirectory(workdir);

    // カレントディレクトリを作成したディレクトリに変更
    Environment.CurrentDirectory = workdir;

    // 変更後のカレントディレクトリを取得・表示
    Console.WriteLine(Directory.GetCurrentDirectory());

    // カレントディレクトリを元に戻す
    Directory.SetCurrentDirectory(currdir);

    // 作成したディレクトリを削除
    Directory.Delete(workdir);
  }
}

Imports System
Imports System.IO

Class Sample
  Shared Sub Main()
    ' カレントディレクトリを取得・表示
    Console.WriteLine(Environment.CurrentDirectory)
    Console.WriteLine(Directory.GetCurrentDirectory())
    Console.WriteLine()



    ' 新しいカレントディレクトリのパスを作成
    Dim currdir As String = Environment.CurrentDirectory
    Dim workdir As String = Path.Combine(currdir, "workdir")

    ' ディレクトリを作成
    Directory.CreateDirectory(workdir)

    ' カレントディレクトリを作成したディレクトリに変更
    Environment.CurrentDirectory = workdir

    ' 変更後のカレントディレクトリを取得・表示
    Console.WriteLine(Directory.GetCurrentDirectory())

    ' カレントディレクトリを元に戻す
    Directory.SetCurrentDirectory(currdir)

    ' 作成したディレクトリを削除
    Directory.Delete(workdir)
  End Sub
End Class

using System;
using System.Reflection;

class Sample {
  static void Main()
  {
    // 現在実行しているアセンブリを取得する
    Assembly assm = Assembly.GetExecutingAssembly();

    Console.WriteLine(assm.FullName); // アセンブリの表示名
    Console.WriteLine(assm.Location); // アセンブリの場所(パス)
  }
}

Imports System
Imports System.Reflection

Class Sample
  Shared Sub Main()
    ' 現在実行しているアセンブリを取得する
    Dim assm As [Assembly] = [Assembly].GetExecutingAssembly()

    Console.WriteLine(assm.FullName) ' アセンブリの表示名
    Console.WriteLine(assm.Location) ' アセンブリの場所(パス)
  End Sub
End Class

using System;
using System.Reflection;

class Sample {
  static void Main()
  {
    // 現在実行しているアセンブリを取得する
    Assembly assm = Assembly.GetExecutingAssembly();

    // アセンブリのターゲットとなるランタイムバージョンを取得・表示する
    Console.WriteLine(assm.ImageRuntimeVersion);

    // 現在動作しているランタイムのバージョンを取得・表示する
    Console.WriteLine(Environment.Version);
  }
}

Imports System
Imports System.Reflection

Class Sample
  Shared Sub Main()
    ' 現在実行しているアセンブリを取得する
    Dim assm As [Assembly] = [Assembly].GetExecutingAssembly()

    ' アセンブリのターゲットとなるランタイムバージョンを取得・表示する
    Console.WriteLine(assm.ImageRuntimeVersion)

    ' 現在動作しているランタイムのバージョンを取得・表示する
    Console.WriteLine(Environment.Version)
  End Sub
End Class

using System;
using System.Reflection;

class Sample {
  static void Main()
  {
    // 現在実行しているアセンブリを取得する
    Assembly assm = Assembly.GetExecutingAssembly();

    Console.WriteLine(assm.FullName);

    // 参照しているすべてのアセンブリを取得し、表示する
    foreach (AssemblyName refassm in assm.GetReferencedAssemblies()) {
      Console.WriteLine("  {0}", refassm.FullName);
    }
  }
}

// 他のアセンブリを参照するコードを含むクラス
class Foo {
  void Bar()
  {
    // System.dllを必要とするコード
    new System.Collections.Generic.Queue<int>();
  }

  void Baz()
  {
    // System.Core.dllを必要とするコード
    System.Linq.Enumerable.Range(0, 1);
  }
}

Imports System
Imports System.Reflection

Class Sample
  Shared Sub Main()
    ' 現在実行しているアセンブリを取得する
    Dim assm As [Assembly] = [Assembly].GetExecutingAssembly()

    Console.WriteLine(assm.FullName)

    ' 参照しているすべてのアセンブリを取得し、表示する
    For Each refassm As AssemblyName In assm.GetReferencedAssemblies()
      Console.WriteLine("  {0}", refassm.FullName)
    Next
  End Sub
End Class

' 他のアセンブリを参照するコードを含むクラス
Class Foo
  Sub Bar()
    ' System.dllを必要とするコード
    Dim q As New System.Collections.Generic.Queue(Of Integer)()
  End Sub

  Sub Baz()
    ' System.Core.dllを必要とするコード
    System.Linq.Enumerable.Range(0, 1)
  End Sub
End Class

using System;

class Sample {
  // Mainメソッドにコマンドライン引数を格納するための引数を用意する
  static void Main(string[] args)
  {
    // プロセス起動時に指定されたコマンドライン引数を表示する
    foreach (string arg in args) {
      Console.WriteLine(arg);
    }
  }
}

Imports System

Class Sample
  ' Mainメソッドにコマンドライン引数を格納するための引数を用意する
  Shared Sub Main(ByVal args As String())
    ' プロセス起動時に指定されたコマンドライン引数を表示する
    For Each arg As String In args
      Console.WriteLine(arg)
    Next
  End Sub
End Class

using System;

class Sample {
  static void Main()
  {
    // プロセス起動時に指定されたコマンドラインを取得・表示する
    Console.WriteLine(Environment.CommandLine);

    // プロセス起動時に指定されたコマンドライン引数を表示する
    foreach (string arg in Environment.GetCommandLineArgs()) {
      Console.WriteLine(arg);
    }
  }
}

Imports System

Class Sample
  Shared Sub Main()
    ' プロセス起動時に指定されたコマンドラインを取得・表示する
    Console.WriteLine(Environment.CommandLine)

    ' プロセス起動時に指定されたコマンドライン引数を表示する
    For Each arg As String In Environment.GetCommandLineArgs()
      Console.WriteLine(arg)
    Next
  End Sub
End Class

using System;
using System.Reflection;

class Sample {
  static void Main()
  {
    // 現在実行している実行可能ファイルのアセンブリを取得する
    var assm = Assembly.GetEntryAssembly();

    // アセンブリ(実行可能ファイル)のパスを表示
    Console.WriteLine(assm.Location);

    // アセンブリ(実行可能ファイル)のURIを表示
    // (.NET 5以降では、Assembly.CodeBaseはObsoleteとなっている)
    Console.WriteLine(assm.CodeBase); // warning SYSLIB0012: 'Assembly.CodeBase' は旧形式です ('Assembly.CodeBase and Assembly.EscapedCodeBase are only included for .NET Framework compatibility. Use Assembly.Location instead.')

    // いったんUriに変換して、LocalPathのみを取得する
    Uri codeBase = new Uri(assm.CodeBase);

    // アセンブリ(実行可能ファイル)へのパスを表示
    Console.WriteLine(codeBase.LocalPath);
  }
}

Imports System
Imports System.Reflection

Class Sample
  Shared Sub Main()
    ' 現在実行している実行可能ファイルのアセンブリを取得する
    Dim assm As [Assembly] = [Assembly].GetEntryAssembly()

    ' アセンブリ(実行可能ファイル)のパスを表示
    Console.WriteLine(assm.Location)

    ' アセンブリ(実行可能ファイル)のURIを表示
    ' (.NET 5以降では、Assembly.CodeBaseはObsoleteとなっている)
    Console.WriteLine(assm.CodeBase) ' warning SYSLIB0012: 'Assembly.CodeBase' は旧形式です ('Assembly.CodeBase and Assembly.EscapedCodeBase are only included for .NET Framework compatibility. Use Assembly.Location instead.')

    ' いったんUriに変換して、LocalPathのみを取得する
    Dim codeBase As New Uri(assm.CodeBase)

    ' アセンブリ(実行可能ファイル)へのパスを表示
    Console.WriteLine(codeBase.LocalPath)
  End Sub
End Class

using System;
using System.IO;

class Sample {
  static void Main()
  {
    // コマンドライン引数の先頭の要素を取得
    string file = Environment.GetCommandLineArgs()[0];

    Console.WriteLine(file);
    Console.WriteLine(Path.GetFullPath(file)); // フルパスに変換
  }
}

Imports System
Imports System.IO

Class Sample
  Shared Sub Main()
    ' コマンドライン引数の先頭の要素を取得
    Dim file As String = Environment.GetCommandLineArgs()(0)

    Console.WriteLine(file)
    Console.WriteLine(Path.GetFullPath(file)) ' フルパスに変換
  End Sub
End Class

using System;
using System.Diagnostics;

class Sample {
  static void Main()
  {
    // 自プロセスのProcessインスタンスを取得
    Process p = Process.GetCurrentProcess();

    Console.WriteLine("Id = {0}", p.Id);                                  // プロセスのID
    Console.WriteLine("Handle = {0}", p.Handle);                          // プロセスのネイティブハンドル
    Console.WriteLine("StartTime = {0}", p.StartTime);                    // プロセスの起動時刻
    Console.WriteLine("TotalProcessorTime = {0}", p.TotalProcessorTime);  // プロセスの合計プロセッサ時間
    Console.WriteLine("WorkingSet64 = {0}", p.WorkingSet64);              // プロセスの物理メモリ使用量
  }
}

Imports System
Imports System.Diagnostics

Class Sample
  Shared Sub Main()
    ' 自プロセスのProcessインスタンスを取得
    Dim p As Process = Process.GetCurrentProcess()

    Console.WriteLine("Id = {0}", p.Id)                                 ' プロセスのID
    Console.WriteLine("Handle = {0}", p.Handle)                         ' プロセスのネイティブハンドル
    Console.WriteLine("StartTime = {0}", p.StartTime)                   ' プロセスの起動時刻
    Console.WriteLine("TotalProcessorTime = {0}", p.TotalProcessorTime) ' プロセスの合計プロセッサ時間
    Console.WriteLine("WorkingSet64 = {0}", p.WorkingSet64)             ' プロセスの物理メモリ使用量
  End Sub
End Class

using System;
using System.Globalization;
using System.Threading;

class Sample {
  static void Main()
  {
    // 現在のスレッドのカルチャを取得・表示する
    Console.WriteLine(Thread.CurrentThread.CurrentCulture);
    Console.WriteLine(CultureInfo.CurrentCulture);
  }
}

Imports System
Imports System.Globalization
Imports System.Threading

Class Sample
  Shared Sub Main()
    ' 現在のスレッドのカルチャを取得・表示する
    Console.WriteLine(Thread.CurrentThread.CurrentCulture)
    Console.WriteLine(CultureInfo.CurrentCulture)
  End Sub
End Class

using System;
using System.Text;

class Sample {
  static void Main()
  {
    // デフォルトエンコーディングを取得・表示する
    Console.WriteLine(Encoding.Default);
    Console.WriteLine(Encoding.Default.WebName);
  }
}

Imports System
Imports System.Text

Class Sample
  Shared Sub Main()
    ' デフォルトエンコーディングを取得・表示する
    Console.WriteLine(Encoding.Default)
    Console.WriteLine(Encoding.Default.WebName)
  End Sub
End Class

using System;
using System.Globalization;
using System.Text;
using System.Threading;

class Sample {
  static void Main()
  {
    // システムのデフォルトエンコーディングを取得・表示する
    Console.WriteLine(Encoding.Default);
    Console.WriteLine(Encoding.Default.WebName);
    Console.WriteLine();

    // カルチャを'zh-TW'(中国語-台湾)に変更
    Thread.CurrentThread.CurrentCulture = CultureInfo.GetCultureInfo("zh-TW");

    CultureInfo currentCulture = Thread.CurrentThread.CurrentCulture;

    // カルチャで使われるエンコーディングを取得・表示する
    Encoding enc = Encoding.GetEncoding(currentCulture.TextInfo.ANSICodePage);

    Console.WriteLine(currentCulture);
    Console.WriteLine(enc);
    Console.WriteLine(enc.WebName);
  }
}

Imports System
Imports System.Globalization
Imports System.Text
Imports System.Threading

Class Sample
  Shared Sub Main()
    ' システムのデフォルトエンコーディングを取得・表示する
    Console.WriteLine(Encoding.Default)
    Console.WriteLine(Encoding.Default.WebName)
    Console.WriteLine()

    ' カルチャを'zh-TW'(中国語-台湾)に変更
    Thread.CurrentThread.CurrentCulture = CultureInfo.GetCultureInfo("zh-TW")

    Dim currentCulture As CultureInfo = Thread.CurrentThread.CurrentCulture

    ' カルチャで使われるエンコーディングを取得・表示する
    Dim enc As Encoding = Encoding.GetEncoding(currentCulture.TextInfo.ANSICodePage)

    Console.WriteLine(currentCulture)
    Console.WriteLine(enc)
    Console.WriteLine(enc.WebName)
  End Sub
End Class