CurDir 函数

返回表示当前路径的 Variant (String)。

语法

CurDir [ (驱动器) ]

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

示例

此示例使用 CurDir 函数返回当前路径。 在 Macintosh 上，将忽略为 CurDir 提供的 drive 指定。 默认驱动器名称为 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".

另请参阅

• 函数 (Visual Basic for Applications)

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。