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