Online Reference

Home

Environ Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล String ที่สอดคล้องกับตัวแปรสภาพแวดล้อมของระบบปฏิบัติการ

ไวยากรณ์

Environ(envstring | number )

ฟังก์ชัน Environ มีไวยากรณ์ของอากิวเมนต์ คือ

ลักษณะการประยุกต์

ถ้า envstring ไม่พบในตาราง environment-string ค่าที่ส่งออกเป็น zero-length string(“”) ฟังก์ชัน Environ ส่งค่าเป็นข้อความที่กำหนดให้เป็น envstring ซึ่งข้อความจะอยู่ตามหลังเครื่องหมายเท่ากับ (=) ในตาราง environment-string สำหรับตัวแปร environment

ถ้าระบุ number แล้วมีข้อความในตำแน่งที่ตรงกับตัวเลขของ environment-string ข้อความนั้นจะถูกส่งออกมา ฟังก์ชัน Environ จะข้อความทั้งหมดรวมถึง envstring ถ้าไม่มีข้อความตามตำแหน่งตัวเลขที่ระบุ ฟังก์ชัน Environ ส่งค่าเป็น zero-length string

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน Environ ในการส่งค่าให้กับ number และความยาวของคำสั่ง PATH จากตาราง environment-string ไม่มีให้กับ Macintosh

' ประกาศตัวแปร
Dim EnvString, Indx, Msg, PathLen

Indx = 1 ' กำหนดค่า index เป็น 1

Do
  ' ดึงตัวแปรสภาพแวดล้อม  
  EnvString = Environ(Indx)
  ' ตรวจพาร์ท
  If Left(EnvString, 5) = "PATH=" Then
    ' ดึงค่าความยาว
    PathLen = Len(Environ("PATH"))
    Msg = "PATH entry = " & Indx & " and length = " & PathLen
    Exit Do
  Else
    Indx = Indx + 1 ' ไม่มีพาร์ทให้เพิ่มค่า index
  End If
Loop Until EnvString = ""

If PathLen > 0 Then
  MsgBox Msg ' แสดงข้อความ
Else
  MsgBox "No PATH environment variable exists."
End If