Environ Function
Returns the value of an environment variable as a string. Environment variables are dependent on the type of operating system that you have.
Syntax:
Environ (Environment As String)
рд╡рд╛рдкрд╕реА рдореВрд▓реНрдп:
рд╡рд╛рдХреНрдпрд╛рдВрд╢
рдкреИрд░рд╛рдореАрдЯрд░
рд╡рд╛рддрд╛рд╡рд░рдг: рдПрдирд╡рд╛рдпрд░рдирдореЗрдВрдЯ рд╡реЗрд░рд┐рдПрдмрд▓ рдЬрд┐рд╕рдХрд╛ рдореВрд▓реНрдп рдЖрдк рдкреНрд░рд╛рдкреНрдд рдХрд░рдирд╛ рдЪрд╛рд╣рддреЗ рд╣реИрдВ.
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleEnviron
Dim sTemp As String
sTemp=Environ ("TEMP")
If sTemp = "" Then sTemp=Environ("TMP")
MsgBox "'" & sTemp & "'" ,64,"Directory of temporary files:"
End Sub