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