通过CurDir函数即可获取到系统的默认当前路径

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

语法

CurDir[(驱动器)]

可选_drive_ 参数是指定现有驱动器的字符串表达式。 如果未指定驱动器或 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".