通过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".