Catatan: Fungsi, metode, objek, atau properti yang diuraikan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft jet berjalan dalam mode Sandbox, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode Sandbox, Cari "mode Sandbox" dalam bantuan.
Mengembalikan string yang terkait dengan variabel lingkungan sistem operasi. Tidak tersedia di Macintosh
Sintaks
Lingkungan ( { envstring | angka } )
Sintaks fungsi environ memiliki argumen ini:
|
Argumen |
Deskripsi |
|
envstring |
Optional. Ekspresi string yang berisi nama variabel lingkungan. |
|
angka |
Optional. Ekspresi numerik yang terkait dengan urutan numerik string lingkungan dalam tabel string lingkungan. Argumen angka dapat berupa ekspresi numerik, tapi dibulatkan ke bilangan bulat sebelum dievaluasi. |
Keterangan
Jika envstring tidak bisa ditemukan dalam tabel string lingkungan, string dengan panjang nol ("") dikembalikan. Jika tidak, envirpada mengembalikan teks yang ditetapkan ke envstringyang ditentukan; yaitu, teks mengikuti tanda sama dengan (=) dalam tabel string lingkungan untuk variabel lingkungan tersebut.
Jika Anda menentukan angka, string yang menduduki posisi numerik dalam tabel string lingkungan akan dikembalikan. Dalam kasus ini, Environ mengembalikan semua teks, termasuk envstring. Jika tidak ada string lingkungan di posisi yang ditentukan, envirakan mengembalikan string kosong.
Contoh
Catatan: Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi Envirpada untuk memasok nomor entri dan panjang pernyataan PATH dari tabel string lingkungan. Tidak tersedia di 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
