全ては時の中に… : 【VB.NET】特殊なフォルダパス（システムフォルダ等）を取得する

Windowsには、マイドキュメントやデスクトップ、システムフォルダ等、OS環境に依存する特殊なフォルダが存在する。これらのフォルダは、設定ファイルやユーザーデータの保存場所として利用することが多く、プログラムでこれらのフォルダパスを取得することも多い。
VB.NETでは、これらのフォルダパスを簡単に取得する方法が用意されていて、System.Environment.GetFolderPath()メソッドを利用すれば良い。

以下、サンプル。
【コード】

Public Class Sample

  Public Shared Sub Main()

    System.Environment.GetFolderPath(Environment.SpecialFolder.System)

  End Sub

End Class

【出力結果】
C:\WINDOWS\System32

折角なので、取得できる全ての特殊フォルダを出力するプログラムのサンプルを記載する。
System.EnvironmentをImportsしておけば、System.Environmentを毎回、記述しなくてもよいので、Importsしておく。
サンプルをコピーする場合には、Imports文もコピーすること！

以下、サンプル。

Imports System.Environment

Public Class Sample

  Public Shared Sub Main()

    'デスクトップ(C:\Documents and Settings\UserName\デスクトップ)

    Debug.WriteLine(GetFolderPath(SpecialFolder.DesktopDirectory))



    'マイドキュメント

    '(C:\Documents and Settings\UserName\My Documents)

    Debug.WriteLine(GetFolderPath(SpecialFolder.Personal))



    'プログラムファイル(C:\Program Files)

    Debug.WriteLine(GetFolderPath(SpecialFolder.ProgramFiles))



    '全ユーザーのApplication Dataフォルダ

    '(C:\Documents and Settings\All Users\Application Data)

    Debug.WriteLine(GetFolderPath(SpecialFolder.CommonApplicationData))



    '現在のローミングユーザーのApplication Dataフォルダ

    '(C:\Documents and Settings\UserName\Application Data)

    Debug.WriteLine(GetFolderPath(SpecialFolder.ApplicationData))



    '現在の非ローミングユーザーのApplication Dataフォルダ

    '(C:\Documents and Settings\UserName\Local Settings\Application Data)

    Debug.WriteLine(GetFolderPath(SpecialFolder.LocalApplicationData))



    'ウィンドウズシステムフォルダ(C:\WINDOWS\System32)

    Debug.WriteLine(GetFolderPath(SpecialFolder.System))

    Debug.WriteLine(SystemDirectory)



    'テンプレート(C:\Documents and Settings\UserName\Templates)

    Debug.WriteLine(GetFolderPath(SpecialFolder.Templates))



    'お気に入り(C:\Documents and Settings\UserName\Favorites)

    Debug.WriteLine(GetFolderPath(SpecialFolder.Favorites))



    '履歴(C:\Documents and Settings\UserName\Local Settings\History)

    Debug.WriteLine(GetFolderPath(SpecialFolder.History))



    'インターネットキャッシュ

    '(C:\Documents and Settings\UserName\Local Settings\Temporary Internet Files)

    Debug.WriteLine(GetFolderPath(SpecialFolder.InternetCache))



    'クッキーフォルダ(C:\Documents and Settings\UserName\Cookies)

    Debug.WriteLine(GetFolderPath(SpecialFolder.Cookies))



    '共有ファイルフォルダ(C:\Program Files\Common Files)

    Debug.WriteLine(GetFolderPath(SpecialFolder.CommonProgramFiles))



    'スタートメニュー

    '(C:\Documents and Settings\UserName\スタート メニュー)

    Debug.WriteLine(GetFolderPath(SpecialFolder.StartMenu))



    'スタートメニューのプログラム

    '(C:\Documents and Settings\UserName\スタート メニュー\プログラム)

    Debug.WriteLine(GetFolderPath(SpecialFolder.Programs))



    'スタートアップ

    '(C:\Documents and Settings\UserName\スタート メニュー\プログラム\スタートアップ)

    Debug.WriteLine(GetFolderPath(SpecialFolder.Startup))



    '最近使用したドキュメント

    '(C:\Documents and Settings\UserName\Recent)

    Debug.WriteLine(GetFolderPath(SpecialFolder.Recent))



    '「送る」フォルダ(C:\Documents and Settings\UserName\SendTo)

    Debug.WriteLine(GetFolderPath(SpecialFolder.SendTo))

  End Sub

End Class