Lưu ý
Hàm, phương pháp, đối tượng hoặc thuộc tính được mô tả trong chủ đề này bị tắt nếu Dịch vụ Biểu thức Microsoft Jet đang chạy ở chế độ hộp cát, điều này ngăn chặn việc đá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) đại diện cho đường dẫn hiện tại.
Cú pháp
CurDir[(ổ đĩa)]
Tham đối ổ đĩatùy chọn là một biểu thức chuỗi chỉ định một ổ đĩa hiện có. Nếu không có ổ đĩa nào được chỉ định hoặc nếu ổ đĩa là chuỗi độ dài bằng không (""), CurDir sẽ trả về đường dẫn cho ổ đĩa hiện tại. Trên Macintosh, CurDir bỏ qua bất kỳ ổ đĩa nào được chỉ định và chỉ đơn giả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 sử 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 có thể 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".