'変数の明示的な宣言を強制します。
Option Explicit

'GetSpecialFolderメソッドの引数に指定する定数を定義します。
Const WindowsFolder = 0
Const SystemFolder = 1

Private Sub Command1_Click()

Dim myFSO As Object
Dim myFolder As Object

'FileSystemObjectオブジェクトを生成します。
Set myFSO = CreateObject("Scripting.FileSystemObject")

'フォルダオブジェクト(引数に指定された特殊フォルダ)を取得します。
Set myFolder = myFSO.GetSpecialFolder(WindowsFolder)

'テキストボックスにフォルダオブジェクトのPathプロパティの値を表示します。
Text1.Text = myFolder.Path

'オブジェクトを解放します
Set myFolder = Nothing
Set myFSO = Nothing

End Sub

Private Sub Command2_Click()

Dim myFSO As Object
Dim myFolder As Object

'FileSystemObjectオブジェクトを生成します
Set myFSO = CreateObject("Scripting.FileSystemObject")

'フォルダオブジェクト(引数に指定された特殊フォルダ)を取得します。
Set myFolder = myFSO.GetSpecialFolder(SystemFolder)

'テキストボックスにフォルダオブジェクトのPathプロパティの値を表示します。
Text2.Text = myFolder.Path

'オブジェクトを解放します
Set myFolder = Nothing
Set myFSO = Nothing

End Sub

Private Sub Form_Load()

Form1.Caption = "FileSystemObject を利用してWindoswディレクトリ及びSystemディレクトリを取得する方法"
Text1.Text = ""
Text2.Text = ""
Command1.Caption = "Windowsディレクトリの取得"
Command2.Caption = "Systemディレクトリの取得"

End Sub