vbaで環境編巣のパスだけ取得したい

質問

Sub Sample()
Dim Env As String, i As Integer
Do
i = i + 1
If Environ(i) = "" Then Exit Do
Env = Env & Environ(i) & Chr(13) & Chr(10)
Loop
MsgBox Env
End Sub

このコードを実行すると、パス以外にもいろいろ取得されてしまうのですが
パスのみ取得するにはどうすればいいでしょうか？

回答No.3

m3_maki · ベストアンサー

こんなのでいかが？

　　Dim Env As String
　　Dim varPath As Variant
　　Dim i As Integer

　　Env = Environ("PATH")
　　MsgBox Env

　　varPath = Split(Env, ";")
　　For i = LBound(varPath) To UBound(varPath)
　　　　Debug.Print varPath(i)
　　Next

お礼

ありがとうございました。

回答No.2

keithin

趣味に応じて様々。

sub macro1()
　dim i as long
　dim s as string
　dim res as string

　do
　i = i + 1
　s = environ(i)
　if s like "*PATH*" then res = res & s & vbcrlf
　loop until s = ""
　msgbox res
end sub

お礼

ありがとうございました。

回答No.1

f272

If Left(UCase(Environ(i)), 5) = "PATH=" Then
で判断すればよい。

お礼

ありがとうございました。