Забележка: Функцията, методът, обектът или свойството, описани в тази тема, се забраняват, ако услугата microsoft Jet Expression се изпълнява в ограничителен режим, което предотвратява оценяването на потенциално опасни изрази. За повече информация относно ограничителния режим потърсете "ограничителен режим" в помощта.
Връща стойност от тип 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".