الدالة CurDir

هام: تمت ترجمة هذه المقالة ترجمة آلية، راجع إقرار إخلاء المسؤولية. يرجى الاطلاع على النسخة الإنجليزية من هذه المقالة. هنا للرجوع إليها.

ملاحظة: يتم تعطيل الداله اسلوب الكائن او الخاصيه هو موضح في هذا الموضوع اذا Microsoft Jet Expression Service قيد التشغيل في وضع الحمايه، الذي يمنع تقييم التعبيرات قد تكون غير امنه. ل# مزيد من المعلومات حول وضع الحمايه، ابحث عن "وضع الحمايه" في "تعليمات".

ارجاع متغير (سلسله) يمثل المسار الحالي.

بناء الجملة

CurDir [(drive)]

يتم اختياري محرك الاقراصوسيطةتعبير السلسلة تحدد محرك اقراص موجود. اذا لم يتم تحديد ليس محرك الاقراص او اذا كان محرك الاقراص سلسله فارغه ("")، ترجع الداله CurDir مسار محرك الاقراص الحالي. علي ماكنتوش، CurDir تتجاهل اي محرك الاقراص المحدد و# ارجاع مسار محرك الاقراص الحالي ب# بساطه.

مثال

ملاحظة: توضح الامثله التاليه استخدام هذه الداله في Visual Basic for Applications (VBA) الوحده النمطيه. ل# الحصول علي مزيد من المعلومات حول العمل ب# استخدام VBA، حدد مرجع المطور في القائمه المنسدله الموجود ب# جانب بحث و# ادخل شروط واحد او اكثر في مربع البحث.

يستخدم هذا المثال الداله CurDir ل# ارجاع المسار الحالي. علي Macintosh، ف# يتم تجاهل الممنوحه ل CurDir مواصفات محرك الاقراص . اسم محرك الاقراص الافتراضي هو "عاليه الجوده"، و# يتم الفصل بين اجزاء من اسم المسار ب# نقطتين بدلا من الشرط المائله العكسيه. ب# طريقه مماثله، يمكنك تحديد مجلدات 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".

ملاحظة: إقرار إخلاء المسؤولية للترجمة الآلية: تمت ترجمة هذه المقالة بواسطة نظام كمبيوتر دون تدخل العامل البشري. توفر Microsoft هذه الترجمات الآلية لمساعدة المستخدمين الذين لا يتحدثون الإنجليزية على استخدام منتجات Microsoft، وخدماتها، وتقنياتها والاستمتاع بها. قد تحتوي هذه المقالة على أخطاء في المفردات، أو بناء الجملة، أو القواعد نظرًا لترجمتها آليًا.

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

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×