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 Varian (String) yang mewakili jalur saat ini.
Sintaks
CurDir[(drive)]
Drive opsional argumen adalah ekspresi string yang menentukan drive yang sudah ada. Jika tidak ada drive yang ditentukan atau jika drive adalah string panjang-nol (""), CurDir mengembalikan jalur untuk drive saat ini. Di Macintosh, CurDir mengabaikan drive apa pun yang ditentukan dan hanya mengembalikan jalur untuk drive saat ini.
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 CurDir untuk mengembalikan jalur saat ini. Di Macintosh, spesifikasi drive yang diberikan ke CurDir diabaikan. Nama drive default adalah "HD" dan bagian dari nama jalur dipisahkan oleh titik dua, bukan garis miring terbalik. Demikian pula, Anda akan menentukan folder Macintosh dan bukan \Windows.
' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL". ' Assume C is the current drive. Dim MyPath MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM". MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM". MyPath = CurDir("D") ' Returns "D:\EXCEL".