Environ fungsi

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Catatan: Fungsi, metode, objek, atau properti yang dijelaskan dalam topik ini dinonaktifkan jika Layanan ekspresi Microsoft Jet sedang berjalan di 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 sistem operasi variabel. Tidak tersedia di Macintosh

Sintaks

Environ ( { envstring | nomor } )

Sintaks fungsi Environ memiliki argumen ini:

Argumen

Deskripsi

envstring

Opsional. Ekspresi string berisi nama variabel.

angka

Opsional. Ekpresi numerik sesuai urutan numerik lingkungan string dalam string lingkungan tabel. Nomor argumen bisa berupa ekspresi numerik apa pun, tapi dibulatkan ke bilangan bulat sebelum itu dievaluasi.


Keterangan

Jika envstring tidak ditemukan di lingkungan-string tabel, string panjang nol ("") akan dikembalikan. Jika tidak, Environ mengembalikan teks yang ditetapkan ke ditentukan envstring; yaitu, teks yang mengikuti sama dengan masuk (=) dalam tabel lingkungan-string untuk variabel lingkungan tersebut.

Jika Anda menetapkan angka, string menempati posisi numerik dalam tabel string lingkungan dikembalikan. Dalam kasus ini, Environ mengembalikan semua teks, termasuk envstring. Jika ada string lingkungan tidak ada di 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 entri nomor dan panjang pernyataan PATH dari tabel lingkungan-string. 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

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan 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.

×