หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับ สตริง ที่เชื่อมโยงกับตัวแปรสภาพแวดล้อมของระบบปฏิบัติการ ไม่พร้อมใช้งานบน Macintosh
ไวยากรณ์
Environ( { envstring | number } )
ไวยากรณ์ของฟังก์ชัน Environ มีอาร์กิวเมนต์ดังนี้
|
อาร์กิวเมนต์ |
คำอธิบาย |
|
envstring |
ไม่จำเป็น นิพจน์สตริงที่มีชื่อของตัวแปรสภาพแวดล้อม |
|
หมายเลข |
ไม่จำเป็น นิพจน์ตัวเลขที่สอดคล้องกับลําดับตัวเลขของสตริงสภาพแวดล้อมในตารางสตริงสภาพแวดล้อม อาร์กิวเมนต์ number อาจเป็นนิพจน์ตัวเลขใดก็ได้ แต่จะถูกปัดเศษเป็นจํานวนเต็มก่อนที่จะถูกประเมิน |
ข้อสังเกต
ถ้าไม่พบ envstring ในตารางสตริงสภาพแวดล้อม สตริงความยาวเป็นศูนย์ ("") จะถูกส่งกลับ มิฉะนั้น Environ จะส่งกลับข้อความที่กําหนดให้เป็น envstring ที่ระบุ ข้อความที่อยู่ต่อจากเครื่องหมายเท่ากับ (=) ในตารางสตริงสภาพแวดล้อมสําหรับตัวแปรสภาพแวดล้อมนั้น
ถ้าคุณระบุ ตัวเลข สตริงที่ใช้ตําแหน่งตัวเลขในตารางสตริงสภาพแวดล้อมจะถูกส่งกลับ ในกรณีนี้ Environ จะส่งกลับข้อความทั้งหมด รวมถึง envstring ถ้าไม่มีสตริงสภาพแวดล้อมในตําแหน่งที่ระบุ Environ จะส่งกลับสตริงที่มีความยาวเป็นศูนย์
ตัวอย่าง
หมายเหตุ: ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน Environ เพื่อใส่หมายเลขรายการและความยาวของคําสั่ง PATH จากตารางสตริงสภาพแวดล้อม ไม่พร้อมใช้งานบน Macintosh
Dim EnvString, Indx, Msg, PathLen ' Declare variables.
Indx = 1 ' Initialize index to 1.
Do
' Get environment variable.
EnvString = Environ(Indx)
' Check PATH entry.
If Left(EnvString, 5) = "PATH=" Then
' Get length.
PathLen = Len(Environ("PATH"))
Msg = "PATH entry = " & Indx & " and length = " _
& PathLen
Exit Do
Else
' Not PATH entry, so increment.
Indx = Indx + 1
End If
Loop Until EnvString = ""
If PathLen > 0 Then
' Display message.
MsgBox Msg
Else
MsgBox "No PATH environment variable exists."
End If
