获取Windows的默认当前路径

来源:www.accessoft.com 点击数:5053 　 | 收藏 | 复制

时　间:2019-07-11 16:24:13
作　者:易勋 ID：35404 城市：上海
摘　要:如果要获取系统当前的默认路径通过VBA要怎么写？
正　文:

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

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】