הערה
הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם Microsoft Jet Expression Service פועל במצב ארגז חול (Sandbox), דבר שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש "מצב ארגז חול" בעזרה.
החזרת משתנה (מחרוזת) המייצג את הנתיב הנוכחי.
תחביר
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".