Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает значение Variant (String), представляющее текущий путь.
Синтаксис
CurDir[(drive)]
Необязательныйаргументдиска — это строковое выражение, указывающий существующий диск. Если диск не указан или диск имеет строку нулевой длины (""), CurDir возвращает путь к текущему диску. В Macintosh CurDir игнорирует любой указанный диск и просто возвращает путь к текущему диску.
Пример
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В этом примере функция CurDir возвращает текущий путь. В Macintosh спецификации дисков , предоставленные CurDir , игнорируются. Имя диска по умолчанию — "HD", а части pathname разделяются двоеточием, а не обратными косыми чертами. Кроме того, в этом случае необходимо указывать папки macOS вместо \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".
