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

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

بناء الجملة

GetAttr ( pathname )

اسم المساروسيطة هو تعبير السلسلة يحدد اسم ملف. قد يتضمن اسم المسار الدليل أو المجلد ومحرك الأقراص.

إرجاع القيم

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

ثابت

القيمة

الوصف

vbNormal

0

عادي.

vbReadOnly

1

للقراءة فقط.

vbHidden

2

مخفي.

vbSystem

4

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

vbDirectory

16

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

vbArchive

32

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

vbAlias

64

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


ملاحظة: يتم تحديد هذه الثوابت بواسطة Visual Basic for Applications. يمكن استخدام الأسماء في أي مكان في التعليمات البرمجية الخاصة بك مكان القيم الفعلية.

ملاحظات

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

لتحديد السمات التي تم تعيينها، استخدم عامل التشغيل And لتنفيذ مقارنة البت من القيمة التي يتم إرجاعها بواسطة الدالة GetAttr وقيمة سمة الملف الفردية التي تريدها. إذا لم تكن النتيجة صفرا، يتم تعيين هذه السمة للملف المسمى. على سبيل المثال، القيمة التي يتم إرجاعها للتعبيرين التاليين And هي صفر إذا لم يتم تعيين السمة Archive:

Result = GetAttr(FName) And vbArchive

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

مثال

يستخدم هذا المثال الدالة GetAttr لتحديد سمات ملف أو دليل أو مجلد. في Macintosh، تتوفر فقط الثوابت vbNormal و vbReadOnly و vbHidden و vbAlias.

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.

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

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

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

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟

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

×