ملاحظة
يتم تعطيل الوظيفة أو الطريقة أو العنصر أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة Microsoft Jet Expression Service قيد التشغيل في وضع الحماية، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع الحماية، ابحث عن "وضع الحماية" في "تعليمات".
إرجاع متغير (سلسلة) يمثل المسار الحالي.
بناء الجملة
CurDir[(محرك الأقراص)]
إن وسيطة محرك الأقراصالاختياري هي تعبير سلسلة يحدد محرك أقراص موجودا. إذا لم يتم تحديد أي محرك أقراص أو إذا كان محرك الأقراص عبارة عن سلسلة فارغة ("")، ترجع 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".