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