הערה: הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם שירות הביטויים של Microsoft Jet פועל במצב ארגז חול (Sandbox) שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש את "מצב ארגז חול" בעזרה.
החזרת Long המייצג את מצב הקובץ עבור קבצים שנפתחים באמצעות המשפט Open .
תחביר
FileAttr ( filenumber , returntype )
תחביר הפונקציה FileAttr מכיל את הארגומנטים הבאים:
|
ארגומנט |
תיאור |
|
מספר קובץ |
נדרש. מספר שלם. כל ערך חוקי מספר קובץ. |
|
סוג החזרה |
נדרש. מספר שלם. מספר המציין את סוג המידע להחזרה. ציין 1 להחזרת ערך המציין את מצב הקובץ. במערכות של 16 סיביות בלבד, ציין 2 כדי לאחזר מזהה ייחודי (handle) של קובץ מערכת ההפעלה. returntype 2 אינו נתמך במערכות של 32 סיביות וגורמת לשגיאה. |
ערכי החזרה
כאשר סוג ההחזרהארגומנט 1, ערכי ההחזרה הבאים מציינים את מצב הגישה לקובץ:
|
הערך השכיח |
Value |
|
קלט |
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.
