הפונקציה GetAttr

חשוב: מאמר זה תורגם בתרגום מכונה, ראה כתב ויתור. תוכל למצוא את הגרסה באנגלית של המאמר כאן לעיונך.

הערה: הפונקציה, שיטת, אובייקט או מאפיין המתוארים בנושא זה אינה זמינה אם שירות Microsoft Jet ביטוי פועל במצב ארגז חול, המונעת להערכה של ביטויים העשויים להיות לא בטוחים. לקבלת מידע נוסף אודות מצב ארגז חול, חפש "מצב sandbox" בעזרה.

החזרת מספר שלם המייצג את התכונות של קובץ, ספריה או תיקיה.

תחביר

GetAttr ( שם הנתיב )

הנדרש שם הנתיבארגומנט הוא ביטוי מחרוזת המציין שם קובץ. שם הנתיב עשוי לכלול את הספריה או התיקיה ואת הכונן.

מחזירות ערכים

הערך המוחזר על-ידי GetAttr הוא הסכום של ערכי התכונה הבאים:

קבוע

ערך

תיאור

vbNormal

0

רגיל.

vbReadOnly

1

קבצים לקריאה בלבד.

vbHidden

2

מוסתר.

vbSystem

4

קובץ מערכת. לא זמין ב- Macintosh.

vbDirectory

16

ספריה או תיקיה.

vbArchive

32

הקובץ השתנה מאז הגיבוי האחרון. לא זמין ב- Macintosh.

vbAlias

64

שם הקובץ שצוין הוא כינוי. אפשרות זו זמינה רק ב- Macintosh.


הערה: בקבועים אלה מצוינות באמצעות Visual Basic for Applications. ניתן להשתמש בשמות בכל מקום בקוד במקום בערכים בפועל.

הערות

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.

כדי לקבוע אילו תכונות יוגדרו, השתמש באופרטור And לביצוע השוואה לפי סיביות של הערך המוחזר על-ידי הפונקציה GetAttr ובין הערך של תכונת הקובץ בודדים שהרצוי. אם התוצאה אינה אפס, תכונה זו מוגדרת עבור קובץ בעל שם. לדוגמה, הערך המוחזר של הביטוי והבא הוא אפס אם התכונה ארכיון לא נקבעה:

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.

הערה: כתב ויתור בנוגע לתרגום מכונה: מאמר זה תורגם על-ידי מערכת מחשב, ללא התערבות אדם. Microsoft מציעה את תרגומי המכונה כדי לסייע למשתמשים שאינם דוברי אנגלית ליהנות מתוכן בנושא מוצרים, שירותים וטכנולוגיות של Microsoft. מכיוון שהמאמר תורגם על-ידי מכונה, הוא עלול להכיל שגיאות באוצר המילים, בתחביר או בדקדוק.

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×