הערה
הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם Microsoft Jet Expression Service פועל במצב ארגז חול (Sandbox), דבר שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש "מצב ארגז חול" בעזרה.
הפונקציה מחזירה מספר שלם שמייצג את התכונות של קובץ, ספריה או תיקיה.
תחביר
GetAttr(pathname)
ארגומנט שם הנתיבהנדרש הוא ביטוי מחרוזת המציין שם קובץ. שם הנתיב עשוי לכלול את הספריה או התיקיה ואת הכונן.
ערכי החזרה
הערך המוחזר על-ידי GetAttr הוא סכום ערכי התכונות הבאים:
| קבוע | Value | תיאור |
|---|---|---|
| vbNormal | 0 | רגיל. |
| vbReadOnly | 1 | לקריאה בלבד. |
| vbמוסתר | 2 | מוסתר. |
| מערכת vb. | 4 | קובץ מערכת. לא זמין במחשב Macintosh. |
| vbDirectory | 16 | ספריה או תיקיה. |
| vbArchive | 32 | הקובץ השתנה מאז הגיבוי האחרון. לא זמין במחשב Macintosh. |
| vbAlias | 64 | שם הקובץ שצוין הוא כינוי. זמין במקינטוש בלבד. |
הערה
קבועים אלה מוגדרים על-ידי Visual Basic for Applications. ניתן להשתמש בשמות בכל מקום בקוד שלך במקום בערכים בפועל.
הערות
הערה
הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
כדי לקבוע אילו תכונות יוגדרו, השתמש באופרטור And כדי לבצע השוואה לפי סיביות של הערך המוחזר על-ידי הפונקציה GetAttr והערך של תכונת הקובץ הבודדת הרצויה. אם התוצאה אינה אפס, תכונה זו מוגדרת עבור הקובץ בעל השם. לדוגמה, ערך ההחזרה של הביטוי And הבא הוא אפס אם התכונה 'ארכיון' לא מוגדרת:
Result = GetAttr(FName) And vbArchive
מוחזר ערך שאינו אפס אם התכונה 'ארכיון' מוגדרת.
דוגמה
דוגמה זו משתמשת בפונקציה GetAttr כדי לקבוע את התכונות של קובץ וספריה או תיקיה. ב- Macintosh, רק הקבועים vbNormal, vbReadOnly, vbHidden ו- vbAlias זמינים.
Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.