הפונקציה CurDir

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

החזרת משתנה (מחרוזת) המייצג את הנתיב הנוכחי.

תחביר

CurDir[(drive)]

הכונן האופציונליארגומנט הוא ביטוי מחרוזת המציין כונן קיים. אם לא צוין כונן או אם הכונן הוא מחרוזת באורך אפס (""), הפונקציה CurDir מחזירה את הנתיב עבור הכונן הנוכחי. ב-Macintosh, CurDir מתעלם מכל כונן שצוין ופשוט מחזירה את הנתיב עבור הכונן הנוכחי.

דוגמה

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

דוגמה זו משתמשת בפונקציה CurDir כדי להחזיר את הנתיב הנוכחי. ב-Macintosh, המערכת מתעלמת ממפרטים של כוננים הניתנים ל- CurDir . שם הכונן המשמש כברירת מחדל הוא "HD" וחלקים של שם הנתיב מופרדים באמצעות נקודותיים במקום לוכסנים הנטויים. באופן דומה, עליך לציין תיקיות Macintosh במקום \Windows.

' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".

זקוק לעזרה נוספת?

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

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

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

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

×