Fungsi environ

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

Perlu bantuan lainnya?

Kembangkan keterampilan Office Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×