Fungsi CurDir

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 varian (String) menunjukkan jalur saat ini.

Sintaks

CurDir [(drive)]

Opsional driveargumen adalah ekspresi string yang menentukan drive yang sudah ada. Jika tidak ada drive ditentukan atau jika drive string panjang nol (""), CurDir mengembalikan jalur drive saat ini. Macintosh, CurDir mengabaikan setiap drive yang ditentukan dan hanya mengembalikan jalur 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. Macintosh, spesifikasi drive yang diberikan ke CurDir diabaikan. Nama drive default adalah "HD" dan bagian-bagian dari nama path dipisahkan oleh titik dan bukan garis miring terbalik. Demikian pula, Anda akan menentukan Macintosh folder 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".

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.

×