５．システムの特別なフォルダーのフォルダーパスを取得(35_Fld_05)　(旧、SampleNo.035)

１ ．Windows フォルダーのパスを取得する ２ ．System フォルダーのパスを取得する ３ ．物理的なデスクトップフォルダーのパスを取得する ４ ．論理的なデスクトップフォルダーのパスを取得する ５ ．My Documents フォルダーのパスを取得する ６ ．My Pictures フォルダーのパスを取得する ７ ．スタートアップフォルダーのパスを取得する ８ ．Temporary Internet Files フォルダーのパスを取得する ９ ．Templates フォルダーのパスを取得する 10．ユーザーが最近使用したドキュメントを格納するディレクトリのパスを取得する 11． 12． 　　この他にも同様の操作でフォルダーのパスが取得できます、詳しくは Environment.SpecialFolder 列挙体 の定数を見て下さい。

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

１．Windows フォルダーのパスを取得する

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'Windows フォルダーのパスを取得する     '名前空間 : Microsoft.VisualBasic   モジュール:  Interaction     Debug.WriteLine(Environ("windir"))    '結果　C:\WINDOWS     Label1.Text = Environ("windir") End Sub

２．System フォルダーのパスを取得する

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 'System フォルダーのパスを取得する     'Imports System.Environment     '結果　C:\WINDOWS\system32     Debug.WriteLine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.System))     Label1.Text = System.Environment.GetFolderPath(System.Environment.SpecialFolder.System) End Sub

３．物理的なデスクトップフォルダーのパスを取得する

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '物理的なデスクトップフォルダーのパスを取得する     'Imports System.Environment     '結果　C:\Documents and Settings\UserName\デスクトップ     Debug.WriteLine(System.Environment.GetFolderPath( _                         System.Environment.SpecialFolder.DesktopDirectory))     Label1.Text = System.Environment.GetFolderPath( _                         System.Environment.SpecialFolder.DesktopDirectory) End Sub

４．論理的なデスクトップフォルダーのパスを取得する

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click '論理的なデスクトップフォルダーのパスを取得する     'Imports System.Environment     '結果　C:\Documents and Settings\UserName\デスクトップ     Debug.WriteLine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop))     Label1.Text = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Desktop) End Sub

５．My Documents フォルダーのパスを取得する

Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click 'My Documents フォルダーのパスを取得する     'Imports System.Environment     '結果　C:\Documents and Settings\UserName\My Documents     Debug.WriteLine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal))     Label1.Text = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Personal) End Sub

６．My Pictures フォルダーのパスを取得する

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click     'My Pictures フォルダーのパスを取得する     'Imports System.Environment     '結果　C:\Documents and Settings\UserName\My Documents\My Pictures     Debug.WriteLine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyPictures))     Label1.Text = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyPictures) End Sub

７．スタートアップフォルダーのパスを取得する

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click 'スタートアップフォルダーのパスを取得する     'Imports System.Environment     '結果　C:\Documents and Settings\UserName\スタートメニュー\プログラム\スタートアップ     Debug.WriteLine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.Startup))     Label1.Text = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Startup) End Sub

８．Temporary Internet Files フォルダーのパスを取得する

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click 'Temporary Internet Files フォルダーのパスを取得する     'Imports System.Environment     '結果　C:\Documents and Settings\UserName\Local Settings\Temporary Internet Files     Debug.WriteLine(System.Environment.GetFolderPath( _                         System.Environment.SpecialFolder.InternetCache))     Label1.Text = System.Environment.GetFolderPath( _                         System.Environment.SpecialFolder.InternetCache) End Sub

９．Templates フォルダーのパスを取得する

Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click 'Templates フォルダーのパスを取得する     'Imports System.Environment     '結果　C:\Documents and Settings\UserName\Templates     Debug.WriteLine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.Templates))     Label1.Text = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Templates) End Sub

10．ユーザーが最近使用したドキュメントを格納するディレクトリのパスを取得する

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click 'ユーザーが最近使用したドキュメントを格納するフォルダーのパスを取得する     'Imports System.Environment     '結果　C:\Documents and Settings\UserName\Recent     Debug.WriteLine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.Recent))     Label1.Text = System.Environment.GetFolderPath(System.Environment.SpecialFolder.Recent) End Sub

11．

12．

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

システムの特別なディレクトリのディレクトリパスを取得　　Environment.SpecialFolder 列挙体