全ユーザー共通のフォルダを取得する

Imports System

Imports Microsoft.Win32

Namespace SantaMarta.Tips.AllUsersSpecialFolders

    Class SpecialFolders

        ''' <summary>
        ''' アプリケーションのメイン エントリ ポイントです。
        ''' </summary>
        Shared Sub Main(ByVal args As String())

            ' 現在のユーザーのフォルダ
            Dim currentUserDocuments As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal)
            Dim currentUserStartMenu As String = Environment.GetFolderPath(Environment.SpecialFolder.StartMenu)
            Dim currentUserPrograms As String = Environment.GetFolderPath(Environment.SpecialFolder.Programs)

            ' 全ユーザー共通のフォルダ
            Dim allUsersDocuments As String = ""
            Dim allUsersStartMenu As String = ""
            Dim allUsersPrograms As String = ""

            ' レジストリから全ユーザー共通のフォルダを取得する
            Dim regKey As RegistryKey

            Try

                regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", False)

                allUsersDocuments = DirectCast(regKey.GetValue("Common Documents", Nothing), String)
                allUsersStartMenu = DirectCast(regKey.GetValue("Common Start Menu", Nothing), String)
                allUsersPrograms = DirectCast(regKey.GetValue("Common Programs", Nothing), String)

            Finally

                If Not regKey Is Nothing Then regKey.Close()

            End Try

            Console.WriteLine("現在のユーザー")
            Console.WriteLine("マイ ドキュメント: {0}", currentUserDocuments)
            Console.WriteLine("スタートメニュー: {0}", currentUserStartMenu)
            Console.WriteLine("全てのプログラム: {0}", currentUserPrograms)

            Console.WriteLine("全ユーザー共通")
            Console.WriteLine("マイ ドキュメント: {0}", allUsersDocuments)
            Console.WriteLine("スタートメニュー: {0}", allUsersStartMenu)
            Console.WriteLine("全てのプログラム: {0}", allUsersPrograms)

        End Sub

    End Class

End Namespace