IBM Lotus Symphony
|
يتم ارجاع نمط التوصل أو رقم التوصل لملف وذلك بالنسبة لملف تم فتحه باستخدام عبارة 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 (ملف مفتوح بنمط ثنائي).
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