Environ Function

рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд░рд┐рдмреЗрд╢ рдЪрд▓рдХреЛ рдорд╛рди рдлрд░реНрдХрд╛рдЙрдБрдЫ ред рдкрд░рд┐рдмреЗрд╢ рдЪрд▓ рддрдкрд╛рдИрдБрд╕рдБрдЧ рднрдПрдХреЛ рд╕рдЮреНрдЪрд╛рд▓рди рдкреНрд░рдгрд╛рд▓реАрдХреЛ рдкреНрд░рдХрд╛рд░рдорд╛ рдирд┐рд░реНрднрд░ рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


Environ (рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдкрд░рд┐рдмреЗрд╢)

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

String

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

рдкрд░рд┐рдмреЗрд╢: рдкрд░рд┐рдмреЗрд╢ рдЪрд▓рдХрд╛ рд▓рд╛рдЧрд┐ рддрдкрд╛рдИрдБ рдорд╛рди рдлрд░реНрдХрд╛рдЙрди рдЪрд╛рд╣рдиреБрд╣реБрдиреНрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleEnviron
Dim sTemp As String
    sTemp=Environ ("TEMP")
    If sTemp = "" Then sTemp=Environ("TMP")
    MsgBox "'" & sTemp & "'" ,ремрек,"рдЕрд▓реНрдкрдХрд╛рд▓рд┐рди рдлрд╛рдЗрд▓рд╣рд░реВрдХреЛ рдбрд╛рдЗрд░реЗрдХреНрдЯрд░реА:"
End Sub

Please support us!