ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع متغير (سلسلة) يمثل المسار الحالي.
بناء الجملة
CurDir[(drive)]
وسيطة محرك الأقراص الاختياري هو تعبير السلسلة يحدد محرك أقراص موجود. إذا لم يتم تحديد محرك أقراص أو إذا كان محرك الأقراص عبارة عن سلسلة ذات طول صفري ("")، يقوم CurDir بإرجاع مسار محرك الأقراص الحالي. على Macintosh، يتجاهل CurDir أي محرك أقراص محدد ويعيد ببساطة مسار محرك الأقراص الحالي.
مثال
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة CurDir لإرجاع المسار الحالي. على Macintosh، يتم تجاهل مواصفات محرك الأقراص الممنوحة ل CurDir . اسم محرك الأقراص الافتراضي هو "HD" ويتم فصل أجزاء من اسم المسار بواسطة نقطتين بدلا من خط مائل عكسي. وبالمثل، يمكنك تحديد مجلدات Macintosh بدلا من \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".
