玄関へお回り下さい。
システムの特別なフォルダーへのディレクトリパスを取得 (10個)           (SNo.035)

１．Windows フォルダーのパスを取得する
２．System フォルダーのパスを取得する
３．物理的なデスクトップフォルダーのパスを取得する
４．論理的なデスクトップフォルダーのパスを取得する
５．My Documents フォルダーのパスを取得する
６．My Pictures フォルダーのパスを取得する
７．スタートアップフォルダーのパスを取得する
８．Temporary Internet Files フォルダーのパスを取得する
９．Templates フォルダーのパスを取得する
10．ユーザーが最近使用したドキュメントを格納するディレクトリのパスを取得する
使用コントロール Button1  〜　Button1
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　
１．Windows フォルダーのパスを取得する
　
Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'Windows フォルダーのパスを取得する
    '名前空間 : Microsoft.VisualBasic   モジュール:  Interaction
    Debug.WriteLine(Environ("windir"))    '結果  C:\WINDOWS
End Sub
　
２．System フォルダーのパスを取得する
　
Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'System フォルダーのパスを取得する
    'Imports System.Environment
    '結果  C:\WINDOWS\system32
    Debug.WriteLine(GetFolderPath(SpecialFolder.System))
End Sub
　
３．物理的なデスクトップフォルダーのパスを取得する
　
Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'物理的なデスクトップ フォルダーのパスを取得する
    'Imports System.Environment
    '結果  C:\Documents and Settings\UserName\デスクトップ
    Debug.WriteLine(GetFolderPath(SpecialFolder.DesktopDirectory))
End Sub
　
４．論理的なデスクトップフォルダーのパスを取得する
　
Private Sub Button4_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button4.Click
'論理的なデスクトップ フォルダーのパスを取得する
    'Imports System.Environment
    '結果  C:\Documents and Settings\UserName\デスクトップ
    Debug.WriteLine(GetFolderPath(SpecialFolder.Desktop))
End Sub
　
５．My Documents フォルダーのパスを取得する
　
Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'My Documents フォルダーのパスを取得する
    'Imports System.Environment
    '結果  C:\Documents and Settings\UserName\My Documents
    Debug.WriteLine(GetFolderPath(SpecialFolder.Personal))
End Sub
　
６．My Pictures フォルダーのパスを取得する
　
Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'My Pictures フォルダーのパスを取得する
    'Imports System.Environment
    '結果  C:\Documents and Settings\UserName\My Documents\My Pictures
    Debug.WriteLine(GetFolderPath(SpecialFolder.MyPictures))
End Sub
　
７．スタートアップフォルダーのパスを取得する
　
Private Sub Button7_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button7.Click
'スタートアップ フォルダーのパスを取得する
    'Imports System.Environment
    '結果  C:\Documents and Settings\UserName\スタート メニュー\プログラム\スタートアップ
    Debug.WriteLine(GetFolderPath(SpecialFolder.Startup))
End Sub
　
８．Temporary Internet Files フォルダーのパスを取得する
　
Private Sub Button8_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button8.Click
'Temporary Internet Files フォルダーのパスを取得する
    'Imports System.Environment
    '結果  C:\Documents and Settings\UserName\Local Settings\Temporary Internet Files
    Debug.WriteLine(GetFolderPath(SpecialFolder.InternetCache))
End Sub
　
９．Templates フォルダーのパスを取得する
　
Private Sub Button9_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button9.Click
'Templates フォルダーのパスを取得する
    'Imports System.Environment
    '結果  C:\Documents and Settings\UserName\Templates
    Debug.WriteLine(GetFolderPath(SpecialFolder.Templates))
End Sub
　
10．ユーザーが最近使用したドキュメントを格納するディレクトリのパスを取得する
　
Private Sub Button10_Click(ByVal sender As System.Object, _
                           ByVal e As System.EventArgs) Handles Button10.Click
'ユーザーが最近使用したドキュメントを格納するディレクトリのパスを取得する
    'Imports System.Environment
    '結果  C:\Documents and Settings\UserName\Recent
    Debug.WriteLine(GetFolderPath(SpecialFolder.Recent))
End Sub
　
この他にも同様の操作でフォルダーのパスが取得できます、詳しくは、Environment.SpecialFolder 列挙体 の定数を見て下さい。





2005/09/16