ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع عدد صحيح يمثل سمات ملف أو دليل أو مجلد.
بناء الجملة
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 وقيمة سمة الملف الفردية التي تريدها. إذا لم تكن النتيجة صفرا، يتم تعيين هذه السمة للملف المسمى. على سبيل المثال، القيمة المرجعة للتعبير و التالي هي صفر إذا لم يتم تعيين السمة Archive:
Result = GetAttr(FName) And vbArchive
يتم إرجاع قيمة غير صفرية إذا تم تعيين السمة Archive.
مثال
يستخدم هذا المثال الدالة 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.
