الدالة GetAttr

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

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

ترجع هذه الداله عدد صحيح يمثل سمات ملف او الدليل او المجلد.

بناء الجملة

GetAttr ( اسم مسار )

هو اسم مسارالمطلوبهargumentstring expression يحدد اسم ملف. قد تتضمن اسم مسار الدليل او المجلد و# محرك الاقراص.

ارجاع القيم

القيمه المرجعه ب# واسطه GetAttr هو مجموع القيم السمات التاليه:

الرقم الثابت

القيمة

الوصف

فبنورمال

0

عادي.

فبريدونلي

1

القراءه فقط.

فبهيدين

2

اخفاء.

فبسيستيم

4

ملف النظام. غير متوفر علي Macintosh.

فبديريكتوري

16

الدليل او المجلد.

فبارتشيفي

32

تم تغيير الملف منذ اخر نسخ احتياطي. غير متوفر علي Macintosh.

فبالياس

64

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


Note: يتم تعيين هذه الثوابت قبل Visual Basic for Applications. يمكنك استخدام الاسماء في اي مكان في التعليمات البرمجيه بدلا من القيم الفعليه.

ملاحظات

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

ل# تحديد السمات التي يتم تعيينها، استخدم عامل التشغيل و# ل# تنفيذ bitwise comparison القيمه التي تم ارجاعها عن طريق الداله GetAttr و# قيمه السمه الملفات الفرديه التي تريدها. اذا لم تكن النتيجه صفرا، يتم تعيين هذه السمه ل# الملف المسمي. علي سبيل المثال، يتم ارجاع قيمه التعبير التالي و# صفر اذا لم يتم تعيين سمه الارشيف:

Result = GetAttr(FName) And vbArchive

يتم ارجاع قيمه غير صفريه اذا تم تعيين سمه الارشيف.

مثال

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

Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.

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

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

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

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

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

×