Примітка.
Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає значення типу Variant (String), яке представляє поточний шлях.
Синтаксис
CurDir[(диск)]
Необов'язковий аргумент диска– це рядковий вираз, який визначає наявний диск. Якщо не вказано жодного диска або якщо диск є рядком нульової довжини (""), функція 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".