الدالة CurDir

ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة 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".

هل تحتاج إلى مزيد من المساعدة؟

تعزيز مهارات Office
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider