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