CurDir 函数

注意: 如果 Microsoft Jet Expression Service 在沙盒模式下运行,则禁用本主题中所述的函数、方法、对象或属性,这会阻止评估可能不安全的表达式。 有关沙盒模式的详细信息,请搜索"帮助"中的"沙盒模式"。

返回表示 (的) 变量字符串。

语法

CurDir[ (drive) ]

可选 驱动器参数 是 字符串表达式 指定现有驱动器的驱动器。 如果未指定驱动器,或者驱动器是零长度字符串 (") ,CurDir 将返回当前驱动器的路径。 在 Macintosh 上,CurDir忽略指定的任何驱动器,只返回当前驱动器的路径。

示例

注意: 以下示例演示了在 VBA Visual Basic for Applications (模块) 函数。 有关使用 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".

需要更多帮助?

扩展你的 Office 技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×