CurDir 函数
更新：2007 年 11 月
返回表示当前路径的字符串。
在文件 I/O 操作中，My.Computer.FileSystem 对象 具有比 CurDir 更高的效率和更好的性能。有关更多信息，请参见 My.Computer.FileSystem.CurrentDirectory 属性。
Public Overloads Function CurDir([ ByVal Drive As Char ]) As String
参数
- Drive
可选。Char 表达式，指定现有驱动器。如果未指定驱动器或 Drive 为零长度字符串 ("")，则 CurDir 返回当前驱动器路径。
异常
异常类型 |
错误号 |
条件 |
|---|---|---|
Drive 未找到。 |
||
指定了无效的 Drive。 |
如果正在升级使用非结构化错误处理方式的 Visual Basic 6.0 应用程序，请参见“错误号”一列。（您可以根据 Number 属性（Err 对象） 比较错误号。） 然而，如果可能，应当考虑用 Visual Basic 的结构化异常处理概述 替换这种错误控制。
备注
此函数返回表示当前路径的字符串。
示例
此示例使用 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"c) ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D"c) ' Returns "D:\EXCEL".
智能设备开发人员说明
不支持此函数。
要求
**模块：**FileSystem
**程序集：**Visual Basic 运行库（在 Microsoft.VisualBasic.dll 中）