Fungsi CurDir

Penting: Artikel ini diterjemahkan oleh mesin, lihatlah notis penafian. Sila dapatkan versi Bahasa Inggeris artikel ini di sini sebagai rujukan anda

Nota: Fungsi, kaedah, objek atau sifat yang diperihalkan dalam topik ini dinyahdayakan jika Perkhidmatan Microsoft Jet ungkapan berjalan dalam mod kotak pasir yang menghalang penilaian ungkapan yang mungkin tidak selamat. Untuk maklumat lanjut tentang mod kotak pasir, Cari "mod kotak Pasir" dalam bantuan.

Mengembalikan satu varian (rentetan) mewakili laluan semasa.

Sintaks

CurDir [(drive)]

Pilihan pemacuargumen adalah ungkapan rentetan yang menentukan pemacu yang sedia ada. Jika tiada pemacu ditentukan atau pemacu rentetan panjang sifar (""), CurDir mengembalikan laluan bagi pemacu semasa. Pada Macintosh, CurDir mengabaikan sebarang pemacu yang ditentukan dan hanya mengembalikan laluan bagi pemacu semasa.

Contoh

Nota: Contoh berikut menunjukkan penggunaan fungsi ini dalam Visual Basic for Applications (VBA) modul. Untuk maklumat lanjut tentang bekerja dengan VBA, pilih Rujukan pembangun dalam senarai juntai bawah di sebelah Cari dan memasukkan satu atau lebih istilah dalam kotak carian.

Contoh ini menggunakan fungsi CurDir untuk mengembalikan laluan semasa. Pada Macintosh, spesifikasi pemacu yang diberikan kepada CurDir diabaikan. Nama pemacu lalai ialah "HD" dan sebahagian daripada nama laluan terpencil dipisahkan dengan tanda titik bertindih dan bukannya garis condong belakang. Begitu juga, anda akan menentukan Macintosh folder dan bukannya \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".

Nota: Notis Penafian Penterjemahan Mesin: Artikel ini telah diterjemah oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan penterjemahan mesin ini untuk membantu pengguna-pengguna yang tidak bertutur dalam Bahasa Inggeris supaya dapat menikmati kandungan mengenai produk, perkhidmatan dan teknologi Microsoft. Artikel ini mungkin mengandungi ralat perbendaharaan kata, sintaks atau tatabahasa kerana ia diterjemahkan oleh mesin.

Kembangkan kemahiran anda
Jelajahi latihan
Dapatkan ciri baru terlebih dahulu
Sertai Office Insiders

Adakah maklumat ini membantu?

Terima kasih atas maklum balas anda!

Terima kasih atas maklum balas anda! Nampaknya ia mungkin akan membantu untuk menyambungkan anda kepada salah seorang daripada ejen sokongan Office kami.

×