VB ile çevre değişkenlerini okumak
DOS komut satırından SET komutunu girdiğinizde normal şartlarda en fazla 255 karakter olan çevre değişkenini okuyabilirsiniz. Visual Basic ile de çevre değişkeninin herhangi satırındaki veriye rahatlıkla ulaşabilirsiniz. Bunun için Environ fonksiyonunu kullanmanız yeterlidir.
Dim EnvString, Indx, Msg, PathLen ' Değişkenleri tanımla
Indx = 1 ' Satır = 1
Do
EnvString = Environ(Indx) ' Değişkeni oku
If Left(EnvString, 5) = "PATH=" Then ' PATH bölümünü ara
PathLen = Len(Environ("PATH")) ' uzunluğunu bul
Msg = "PATH satırı = " & Indx & " uzunluğu = " & PathLen
Exit Do
Else
Indx = Indx + 1 ' PATH bölümü bulunamadı
End If ' bir sonraki satıra geç
If PathLen > 0 Then
MsgBox Msg 'PATH değişkeni bulunursa uzunluğunu ve
'satırı görüntüle
Else
MsgBox "PATH tanımları bulunamadı."
End If