Environ Function

αƒαƒ‘αƒ αƒ£αƒœαƒ”αƒ‘αƒ‘ გარემობ αƒͺαƒ•αƒšαƒαƒ“αƒ˜αƒ‘ αƒ›αƒœαƒ˜αƒ¨αƒ•αƒœαƒ”αƒšαƒαƒ‘αƒαƒ‘ როგორαƒͺ αƒ‘αƒ’αƒ αƒ˜αƒœαƒ’αƒ‘. გარემობ αƒͺαƒ•αƒšαƒαƒ“αƒ”αƒ‘αƒ˜ αƒ“αƒαƒ›αƒαƒ™αƒ˜αƒ“αƒ”αƒ‘αƒ£αƒšαƒ”αƒ‘αƒ˜ αƒαƒ αƒ˜αƒαƒœ αƒ—αƒ₯αƒ•αƒ”αƒœαƒ˜ αƒαƒžαƒ”αƒ αƒαƒͺαƒ˜αƒ£αƒšαƒ˜ αƒ‘αƒ˜αƒ‘αƒ’αƒ”αƒ›αƒ˜αƒ‘ αƒ’αƒ˜αƒžαƒ–αƒ”.

αƒ‘αƒ˜αƒœαƒ’αƒαƒ₯αƒ‘αƒ˜

Environ (Environment As String)

αƒ“αƒαƒ‘αƒ αƒ£αƒœαƒ”αƒ‘αƒ£αƒšαƒ˜ αƒ›αƒœαƒ˜αƒ¨αƒ•αƒœαƒ”αƒšαƒαƒ‘αƒ:

αƒ‘αƒ’αƒ αƒ˜αƒ₯αƒαƒœαƒ”αƒ‘αƒ˜

Parameters:

Environment: გარემობ αƒͺαƒ•αƒšαƒαƒ“αƒ˜, αƒ αƒαƒ›αƒ”αƒšαƒ˜αƒ‘αƒ—αƒ•αƒ˜αƒ‘αƒαƒͺ αƒ’αƒœαƒ”αƒ‘αƒαƒ•αƒ— αƒ“αƒαƒαƒ‘αƒ αƒ£αƒœαƒαƒ— αƒ›αƒœαƒ˜αƒ¨αƒ•αƒœαƒ”αƒšαƒαƒ‘αƒ.

Error codes:

D'oh! You found a bug (text/sbasic/shared/00000003.xhp#err5 not found).

αƒ›αƒαƒ’αƒαƒšαƒ˜αƒ—αƒ˜:

Sub ExampleEnviron

Dim sTemp As String

    sTemp=Environ ("TEMP")

    If sTemp = "" Then sTemp=Environ("TMP")

    MsgBox "'" & sTemp & "'" ,64,"αƒ“αƒ αƒαƒ”αƒ‘αƒ˜αƒ—αƒ˜ αƒ€αƒαƒ˜αƒšαƒ”αƒ‘αƒ˜αƒ‘ αƒ“αƒ˜αƒ αƒ”αƒ₯αƒ’αƒαƒ αƒ˜αƒ:"

End Sub