Module
Contents
Index 🔎︎

# CurDir Function

Trả về một chuỗi biến thể mà đại diện đường dẫn hiện thời của ổ đĩa đã ghi rõ.

This statement currently does not work as documented. See this issue for more information.

## Cú pháp:

    CurDir [(Text As String)]

## GIá trị trả về:

Chuỗi

## Tham số :

Text: bất cứ biểu thức chuỗi nào mà ghi rõ một ổ đĩa đã tồn tại (v.d. « C » đại diện phân vùng thứ nhất của đĩa cứng thứ nhất).

Chưa ghi rõ ổ đĩa hoặc ổ đĩa là chuỗi chiều dài số không thì hàm CurDir trả về đường dẫn đến ổ đĩa hiện thời. LibreOffice Basic trả về lỗi nếu mô tả ổ đĩa có cú pháp sai, ổ đĩa không tồn tại, hoặc chữ hiệu ổ đĩa xảy ra phía sau chữ được xác định bằng câu lệnh Lastdrive trong tập tin cấu hình CONFIG.SYS.

Hàm này không phân biệt chữ hoa/thường.

## Error codes:

5 Sai gọi thủ tục

68 Thiết bị không sẵn sàng 68 Thiết bị không sẵn sàng 68 Thiết bị không sẵn sàng

7 Cạn bộ nhớ

51 Lỗi nội bộ 51 Lỗi nội bộ 51 Lỗi nội bộ 51 Lỗi nội bộ

## Thí dụ :

    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