' [006.xls]



' [Module1] のコード
'★★☆　システム環境変数を取得する　☆★★

Option Explicit

Sub start()

    UserForm1.Show

End Sub


' [UserForm1] のコード
Option Explicit

Private Sub CommandButton1_Click()
Dim no As Long

    'リストボックスの内容を削除
    '(既に内容が書き込まれている時に2重に表示されるのを防ぐ)
    ListBox1.Clear
    
    '変数の初期化
    no = 0
    
    'Environ 関数はオペレーティング システムの環境変数に
    '割り当てられた文字列型 (String) を返します
    Do
        no = no + 1
        ListBox1.AddItem (Environ(no))
        If Environ(no) = "" Then Exit Do
    Loop

End Sub

Private Sub CommandButton2_Click()

    'Windowsフォルダのパスを取得
    CommandButton2.Caption = Environ("windir")

End Sub