Environ Function
āĻāĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ āĻšāĻŋāϏā§āĻŦā§ āĻāĻāĻāĻŋ āĻāύāĻāĻžā§āϰāύāĻŽā§āύā§āĻ āĻāϞāĻā§āϰ āĻŽāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻāϰāĻž āĻšā§āĨ¤ āĻāύāĻāĻžā§āϰāύāĻŽā§āύā§āĻ āĻāϞāĻ āĻāĻĒāύāĻžāϰ āĻ āĻĒāĻžāϰā§āĻāĻŋāĻ āϏāĻŋāϏā§āĻā§āĻŽā§āϰ āϧāϰāύā§āϰ āĻāĻĒāϰ āύāĻŋāϰā§āĻāϰāĻļā§āϞāĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Environ (Environment As String)
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
āϏā§āĻā§āϰāĻŋāĻ
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āĻāύāĻāĻžā§āϰāύāĻŽā§āύā§āĻ: āĻāĻĒāύāĻŋ āϝ⧠āĻāύāĻāĻžā§āϰāύāĻŽā§āύā§āĻ āĻāϞāĻā§āϰ āĻāύā§āϝ āĻŽāĻžāύ āĻĒā§āϰāĻĻāĻžāύ āĻāϰāϤ⧠āĻāĻžāύāĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
Sub ExampleEnviron
Dim sTemp As String
sTemp=Environ ("TEMP")
If sTemp = "" Then sTemp=Environ("TMP")
MsgBox "'" & sTemp & "'" ,64,"Directory of temporary files:"
End Sub