הערה: הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם שירות הביטויים של Microsoft Jet פועל במצב ארגז חול (Sandbox) שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש את "מצב ארגז חול" בעזרה.
החזרת מספר שלם המייצג את התכונות של קובץ, ספריה או תיקיה.
תחביר
GetAttr ( pathname )
שם הנתיבארגומנט הוא ביטוי מחרוזת המציין שם קובץ. שם הנתיב עשוי לכלול את הספריה או התיקיה ואת הכונן.
ערכי החזרה
הערך המוחזר על-ידי GetAttr הוא הסכום של ערכי התכונה הבאים:
|
קבוע |
Value |
תיאור |
|
vb לא נורמלית |
0 |
נורמלי. |
|
vbReadOnly |
1 |
לקריאה בלבד. |
|
vbהנסתרת |
2 |
מוסתרים. |
|
vbSystem |
4 |
קובץ מערכת. לא זמין ב- Macintosh. |
|
vbDirectory |
16 |
מדריך כתובות או תיקיה. |
|
vbArchive |
32 |
הקובץ השתנה מאז הגיבוי האחרון. לא זמין ב- Macintosh. |
|
vbAlias |
64 |
שם הקובץ שצוין הוא כינוי. זמין רק ב- Macintosh. |
הערה: קבועים אלה מצוינים על-ידי Visual Basic for Applications. ניתן להשתמש בשמות בכל מקום בקוד במקום הערכים בפועל.
הערות
הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.
כדי לקבוע אילו תכונות מוגדרות, השתמש באופרטור And כדי לבצע השוואה לפי סיביות של הערך המוחזר על-ידי הפונקציה GetAttr ובערך של תכונת הקובץ הבודד הרצויה. אם התוצאה אינה אפס, תכונה זו מוגדרת עבור הקובץ בעל השם. לדוגמה, הערך המוחזר של הביטוי And הבא הוא אפס אם התכונה Archive אינה מוגדרת:
Result = GetAttr(FName) And vbArchive
מוחזר ערך שאינו אפס אם התכונה Archive מוגדרת.
דוגמה
דוגמה זו משתמשת בפונקציה 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.
