الدالة Dir

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

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

ارجاع سلسله تمثل اسم ملف، و# الدليل او المجلد الذي يتطابق مع نمط معين او سمه الملف، او تسميه التخزين ل# محرك اقراص.

بناء الجملة

Dir [(اسم مسار [، و# سمات] )]

يحتوي بناء جمله الداله Dir علي الوسيطات التاليه:

الوسيطة

الوصف

اسم مسار

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

السمات

اختياري. ثابت او تعبير رقمي، يحدد مجموعه سمات الملفات. اذا تم حذفها، ف# ترجع الداله الملفات التي تتطابق مع اسم مسار غير ان ايه سمات.


الإعدادات

اعداداتوسيطةسمات:

الرقم الثابت

القيمة

الوصف

فبنورمال

0

(افتراضي) يحدد الملفات ب# دون سمات.

فبريدونلي

1

يحدد ملفات ل# القراءه فقط ب# الاضافه الي الملفات ب# دون سمات.

فبهيدين

2

يحدد الملفات المخفيه ب# الاضافه الي الملفات ب# دون سمات.

فبسيستيم

4

يحدد ملفات النظام ب# الاضافه الي الملفات ب# دون سمات. غير متوفر علي Macintosh.

فبفولومي

8

تعيين تسميه المجمع؛ اذا تم تحديد غير متوفر، ماكنتوش. غير متوفر علي Macintosh.

فبديريكتوري

16

يحدد الدلائل او المجلدات ب# الاضافه الي الملفات ب# دون سمات.

فبالياس

64

اسم الملف المحدد اسم مستعار. متوفر فقط علي Macintosh.


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

ملاحظات

في Microsoft Windows، يدعم Dir استخدام الحرف (*) و# احرف البدل حرف مفرد (؟) ل# تحديد عده ملفات متعدده. علي ماكنتوش، تعامل ك# احرف اسم ملف صالح هذه الاحرف و# لا يمكن استخدامه ك# احرف البدل ل# تحديد عده ملفات.

ب# ما ان لا يعتمد Macintosh احرف البدل، استخدم نوع الملف ل# تحديد مجموعات من الملفات. يمكنك استخدام الداله MacID ل# تحديد نوع الملف بدلا من استخدام اسماء الملفات. علي سبيل المثال، العباره التاليه ب# ارجاع اسم الملف النصي الاولي في المجلد الحالي:

Dir("SomePath", MacID("TEXT"))

ل# تكرار كافه الملفات في مجلد، حدد سلسله فارغه:

Dir("")

اذا كنت تستخدم الداله MacID مع Dir في Windows، ف# سيحدث خطا.

تعتبر ايه قيمه سمات اكبر من 256 قيمه MacID .

يجب تحديد اسم المسار ل# المره الاولي استدعاء الداله Dir ، او حدوث خطا. يمكنك ايضا تحديد سمات الملفات، يجب ان يكون اسم مسار مضمنه.

ارجاع Dir الاسم الاول ل# الملف الذي يتطابق مع اسم مسار. ل# الحصول علي ايه اسماء الملفات الاضافيه التي تتطابق مع اسم مسار، يمكنك الاتصال Dir مره اخري ب# استخدام ايه وسيطات. عندما تتطابق مع مزيد من اسماء الملفات، Dir ارجاع سلسله فارغه (""). ب# مجرد يتم ارجاع سلسله فارغه، ف# عليك تحديد اسم مسار في المكالمات اللاحقه او حدوث خطا. يمكنك تغيير الي جديد اسم مسار دون استرداد كافه اسماء الملفات التي تتطابق مع الحالي اسم مسار. و# مع ذلك، لا تتصل ب# شكل متكرر الداله Dir . استدعاء Dir يتضمن السمه فبديريكتوري لا استمرار ترجع الدلائل الفرعيه.

تلميح     ل# انه يتم استرداد اسماء الملفات في ليس ترتيب معين، قد تحتاج الي تخزين اسماء الملفات التي تم ارجاعها في صفيف، ثم قم ب# فرز الصفيف.

مثال

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

يستخدم هذا المثال الداله Dir ل# التحقق من اذا كان بعض الملفات و# الدلائل موجود. علي ماكنتوش، "عاليه الجوده:" هو اسم محرك الاقراص الافتراضي، و# يتم فصل اجزاء من اسم المسار ب# نقطتين بدلا من الشرط المائله العكسيه. ايضا، يتم التعامل مع احرف البدل Windows ك# احرف اسم الملف صحيحه علي Macintosh. و# مع ذلك، يمكنك استخدام الداله MacID ل# تحديد مجموعات الملف.

Dim MyFile, MyPath, MyName
' Returns "WIN.INI" (on Microsoft Windows) if it exists.
MyFile = Dir("C:\WINDOWS\WIN.INI")
' Returns filename with specified extension. If more than one *.ini
' file exists, the first file found is returned.
MyFile = Dir("C:\WINDOWS\*.INI")
' Call Dir again without arguments to return the next *.INI file in the
' same directory.
MyFile = Dir
' Return first *.TXT file with a set hidden attribute.
MyFile = Dir("*.TXT", vbHidden)
' Display the names in C:\ that represent directories.
MyPath = "c:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

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

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

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

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

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

×