注意
如果 Microsoft Jet 表达式服务在沙盒模式下运行，则本主题中描述的函数、方法、对象或属性将被禁用，这会阻止对潜在不安全表达式进行评估。 有关沙盒模式的详细信息，请在帮助中搜索“沙盒模式”。
返回表示当前路径 (字符串) 变体。
语法
CurDir[ (drive) ]
可选的驱动器参数是指定现有驱动器的字符串表达式。 如果未指定驱动器或 驱动器 为零长度字符串 (“”) ，则 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".