Environ Function

αžαŸ’αžšαž‘αž”αŸ‹β€‹αžαž˜αŸ’αž›αŸƒβ€‹αž“αŸƒβ€‹αž’αžαŸαžšβ€‹αž”αžšαž·αžŸαŸ’αžαžΆαž“β€‹αž˜αž½αž™β€‹αž‡αžΆβ€‹αžαŸ’αžŸαŸ‚β€‹αž’αž€αŸ’αžŸαžšΒ αŸ” αž’αžαŸαžšβ€‹αž”αžšαž·αžŸαŸ’αžαžΆαž“β€‹αž–αžΉαž„β€‹αž•αŸ’αž’αŸ‚αž€β€‹αž›αžΎβ€‹αž”αŸ’αžšαž—αŸαž‘β€‹αž“αŸƒβ€‹αž”αŸ’αžšαž–αŸαž“αŸ’αž’β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·αž€αžΆαžš αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž˜αžΆαž“Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–


Environ (Environment As String)

αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαž‘αž”αŸ‹ αŸ–

String

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

Environment αŸ– αž’αžαŸαžšβ€‹αž”αžšαž·αžŸαŸ’αžαžΆαž“ αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž…αž„αŸ‹β€‹αžαŸ’αžšαž‘αž”αŸ‹β€‹αžαž˜αŸ’αž›αŸƒβ€‹αžŸαž˜αŸ’αžšαžΆαž”αŸ‹Β αŸ”

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–


Sub ExampleEnviron
Dim sTemp As String
    sTemp=Environ ("TEMP")
    If sTemp = "" Then sTemp=Environ("TMP")
    MsgBox "'" & sTemp & "'" ,64,"Directory of temporary files:"
End Sub

Please support us!