Environ Function

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

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


Environ (Environment As String)

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

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

Please support us!