Environ Function
рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд░рд┐рдмреЗрд╢ рдЪрд▓рдХреЛ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдкрд░рд┐рдмреЗрд╢ рдЪрд▓ рддрдкрд╛рдИрдБрд╕рдБрдЧ рднрдПрдХреЛ рд╕рдЮреНрдЪрд╛рд▓рди рдкреНрд░рдгрд╛рд▓реАрдХреЛ рдкреНрд░рдХрд╛рд░рдорд╛ рдирд┐рд░реНрднрд░ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
Environ (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд░рд┐рдмреЗрд╢)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рд╕реНрдЯреНрд░рд┐рдЩ
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рдкрд░рд┐рдмреЗрд╢: рдкрд░рд┐рдмреЗрд╢ рдЪрд▓рдХрд╛ рд▓рд╛рдЧрд┐ рддрдкрд╛рдИрдБ рдорд╛рди рдлрд░реНрдХрд╛рдЙрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleEnviron
Dim sTemp As String
sTemp=Environ ("TEMP")
If sTemp = "" Then sTemp=Environ("TMP")
MsgBox "'" & sTemp & "'" ,ремрек,"рдЕрд▓реНрдкрдХрд╛рд▓рд┐рди рдлрд╛рдЗрд▓рд╣рд░реВрдХреЛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА:"
End Sub