注意: 如果 Microsoft Jet 表达式服务在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，这会阻止计算潜在的不安全表达式。 有关沙盒模式的详细信息，请在“帮助”中搜索“沙盒模式”。
返回代表当前路径的 Variant (String) 。
语法
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".
