Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan Ekspresi Microsoft Jet berjalan dalam mode kotak pasir, yang mencegah evaluasi ekspresi yang berpotensi tidak aman. Untuk informasi selengkapnya tentang mode kotak pasir, cari "mode kotak pasir" di Bantuan.
Mengembalikan String yang terkait dengan variabel lingkungan sistem operasi. Tidak tersedia di Macintosh
Sintaks
Environ( { envstring | number } )
Sintaks fungsi Environ memiliki argumen ini:
|
Argumen |
Deskripsi |
|
envstring |
Opsional. Ekspresi string yang berisi nama variabel lingkungan. |
|
angka |
Opsional. Ekspresi numerik yang terkait dengan urutan numerik string lingkungan dalam tabel string lingkungan. Argumen angka bisa berupa ekspresi numerik apa pun, tetapi dibulatkan ke bilangan bulat sebelum dievaluasi. |
Keterangan
Jika envstring tidak dapat ditemukan dalam tabel string lingkungan, string panjang-nol ("") akan dikembalikan. Jika tidak, Environ mengembalikan teks yang ditetapkan ke envstring yang ditentukan; yaitu, teks yang mengikuti tanda sama dengan (=) dalam tabel string lingkungan untuk variabel lingkungan tersebut.
Jika Anda menentukan angka, string yang menempati posisi numerik tersebut dalam tabel string lingkungan dikembalikan. Dalam hal ini, Environ mengembalikan semua teks, termasuk envstring. Jika tidak ada string lingkungan dalam posisi yang ditentukan, Environ mengembalikan string panjang-nol.
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 Environ untuk memasukkan 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 IfLoop Until EnvString = ""If PathLen > 0 Then ' Display message. MsgBox MsgElse MsgBox "No PATH environment variable exists."End If
