IBM Lotus Symphony


FileAttr Function [Runtime]

يتم ارجاع نمط التوصل أو رقم التوصل لملف وذلك بالنسبة لملف تم فتحه باستخدام عبارة Open. يعتمد رقم التوصل للملف على نظام التشغيل (OSH = Operating System Handle).

شارة الملاحظة اذا قمت باستخدام نظام تشغيل 32-Bit، لن يمكنك استخدام FileAttr-Function لتحديد رقم التوصل للملف.

أنظر أيضا: Open

الصيغة:

FileAttr (FileNumber As Integer, Attribute As Integer)

القيمة المرتجعة:

رقم صحيح

المعاملات:

FileNumber: الرقم الخاص بالملف الذي تم فتحه باستخدام عبارة Open.

Attribute: تعبير رقمي يشير لمعلومات نوع الملف الذي تريد ارجاعه. فيما يلي القيم الممكنة:

1: تشير الوظيفة FileAttr-Function لنمط التوصل الخاص بالملف.

2: تقوم الوظيفة FileAttr-Function بارجاع رقم التوصل للملف الخاص بنظام التشغيل.

اذا قمت بتحديد خاصية مميزة لمعامل بالقيمة 1، ستنطبق القيم المرتجعة التالية:

1 - INPUT (ملف مفتوح للمدخلات)

2 - OUTPUT (ملف مفتوح للمخرجات)

4 - RANDOM (ملف مفتوح للتوصل العشوائي)

8 - APPEND (ملف مفتوح للالحاق)

32 - BINARY (ملف مفتوح بنمط ثنائي).

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

52 اسم أو رقم ملف غير صحيح

مثال:

Sub ExampleFileAttr

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

aFile = "c:\data.txt"

iNumber = Freefile

Open aFile For Output As #iNumber

Print #iNumber, "هذا سطر من النص"

MsgBox FileAttr(#iNumber, 1 ),0,"Access mode"

MsgBox FileAttr(#iNumber, 2 ),0,"File attribute"

Close #iNumber

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية