模块
目录
索引 🔎︎

# CurDir 函数

返回一个表示指定驱动器的当前路径的变体字符串。

此语句当前尚不能按照文档所描述的方式工作。详情请见这个问题报告。

## 语法:

    CurDir [(Text As String)]

## 返回值:

字符串

## 参数:

「Text」: 用于指定现有驱动器的任意字符串表达式 (例如，"C" 表示第一个硬盘驱动器的第一个分区)。

如果未指定驱动器或指定的驱动器是一个零长度字符串 ("")，CurDir 将返回当前驱动器的路径。如果说明驱动器的语法不正确、驱动器不存在或者驱动器号出现在 CONFIG.SYS 中 Lastdrive 语句定义的驱动器号之后，LibreOffice Basic 将报告错误。

此函数不区分大小写。

## 错误代码:

5 无效的过程调用

68 设备不可用

7 内存不足

51 内部错误

## 示例:

    Sub ExampleCurDir

    Dim sDir1 As String , sDir2 As String

        sDir1 = "c:\Test"

        sDir2 = "d:\Private"

        ChDir( sDir1 )

        MsgBox CurDir

        ChDir( sDir2 )

        MsgBox CurDir

    End Sub