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