Lưu ý: Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này sẽ bị vô hiệu hóa nếu Dịch vụ Biểu thức Phản lực của Microsoft đang chạy trong chế độ hộp cát, điều này ngăn không cho đánh giá các biểu thức không an toàn tiềm ẩn. Để biết thêm thông tin về chế độ hộp cát, hãy tìm kiếm "chế độ hộp cát" trong Trợ giúp.
Trả về một Biến_thể (Chuỗi) thể hiện đường dẫn hiện tại.
Cú pháp
CurDir[(ổđĩa)]
Ổ đĩa tùy chọntham đối là một biểu thức chuỗi xác định ổ đĩa hiện có. Nếu không có ổ đĩa nào được chỉ định hoặc nếu ổ đĩa là chuỗi có độ dài bằng 0 (""), CurDir sẽ trả về đường dẫn cho ổ đĩa hiện tại. Trên Macintosh, CurDir bỏ qua bất kỳ ổ đĩanào được chỉ định và chỉ cần trả về đường dẫn cho ổ đĩa hiện tại.
Ví dụ
Lưu ý: Các ví dụ sau thể hiện cách sử dụng hàm này trong mô-đun Visual Basic for Applications (VBA). Để biết thêm thông tin về cách làm việc với VBA, chọn Tham khảo dành cho Nhà phát triển trong danh sách thả xuống cạnh Tìm kiếm, rồi nhập một hoặc nhiều từ vào hộp tìm kiếm.
Ví dụ này dùng hàm CurDir để trả về đường dẫn hiện tại. Trên Macintosh, thông số kỹ thuật ổ đĩa được cung cấp cho CurDir bị bỏ qua. Tên ổ đĩa mặc định là "HD" và các phần của tên đường dẫn được phân tách bằng dấu hai chấm thay vì dấu gạch chéo ngược. Tương tự, bạn sẽ chỉ định thư mục Macintosh thay vì \Windows.
' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' 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".
