ملاحظة: يتم تعطيل الدالة أو الأسلوب أو الكائن أو الخاصية الموضحة في هذا الموضوع إذا كانت خدمة تعبير Microsoft Jet قيد التشغيل في وضع بيئة الاختبار المعزولة، مما يمنع تقييم التعبيرات التي يحتمل أن تكون غير آمنة. لمزيد من المعلومات حول وضع بيئة الاختبار المعزولة، ابحث عن "وضع بيئة الاختبار المعزولة" في التعليمات.
إرجاع Long يمثل وضع الملف للملفات التي تم فتحها باستخدام عبارة Open .
بناء الجملة
FileAttr ( filenumber , returntype )
يحتوي بناء جملة الدالة FileAttr على هذه الوسيطات:
|
الوسيطة |
الوصف |
|
رقم الملف |
مطلوبة. صحيح. أي رقم الملف صالح . |
|
نوع المرجع |
مطلوبة. عدد صحيح. رقم يشير إلى نوع المعلومات المراد إرجاعها. حدد 1 لإرجاع قيمة تشير إلى وضع الملف. على أنظمة 16 بت فقط، حدد 2 لاسترداد مقبض ملف نظام التشغيل. returntype 2 غير مدعوم في أنظمة 32 بت ويتسبب في حدوث خطأ. |
إرجاع القيم
عندما يكونوسيطةreturntype هو 1، تشير قيم الإرجاع التالية إلى وضع الوصول إلى الملف:
|
المنوال |
قيمة |
|
الإدخال |
1 |
|
الناتج |
2 |
|
عشوائيه |
4 |
|
إلحاق |
8 |
|
ثنائي |
32 |
مثال
ملاحظة: توضح الأمثلة التالية استخدام هذه الدالة في وحدة Visual Basic for Applications (VBA). لمزيد من المعلومات حول العمل مع VBA، حدد مرجع المطور في القائمة المنسدلة بجوار البحث وأدخل مصطلحا واحدا أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة FileAttr لإرجاع وضع الملف ومقبض الملف لملف مفتوح. يتم إرجاع مقبض الملف فقط على أنظمة 16 بت؛ على أنظمة 32 بت، يؤدي تمرير 2 كوسيطة ثانية إلى حدوث خطأ.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.
