CurDir

返回当前路径。

CurDir函数

返回一个表示当前路径的Variant（String）。

语法：CurDir [ ( drive ) ]

drive

可选 字符串表达式，指定一个现有的驱动器。如果未指定驱动器或drive为零长度字符串("")，CurDir返回当前驱动器的路径。

示例

本示例使用CurDir函数返回当前路径。

' Assume current path on C drive is "C:\WINDOWS\SYSTEM".
' 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".

CurDir$函数

返回一个表示当前路径的String。

语法：CurDir$ [ ( drive ) ]

drive

可选 字符串表达式，指定一个现有的驱动器。如果未指定驱动器或drive为零长度字符串("")，**CurDir$**返回当前驱动器的路径。

示例

本示例使用**CurDir$**函数返回当前路径。

' Assume current path on C drive is "C:\WINDOWS\SYSTEM".
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath As String
MyPath = CurDir$       ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir$("C")  ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir$("D")  ' Returns "D:\EXCEL".

另请参阅

• ChDir、ChDrive语句
• Dir函数