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 Số nguyên đại diện cho các thuộc tính của tệp, thư mục hoặc thư mục.
Cú pháp
GetAttr(tên đường dẫn)
Tham đối tên đường dẫnbắt buộc là một biểu thức chuỗi chỉ rõ tên tệp. Tên đường dẫn có thể bao gồm thư mục, thư mục và ổ đĩa.
Giá trị Trả về
Giá trị mà GetAttr trả về là tổng các giá trị thuộc tính sau đây:
| Hằng số | Value | Mô tả |
|---|---|---|
| vbNormal | 0 | Bình thường. |
| vbReadOnly | 1 | Chỉ đọc. |
| vbHidden | 2 | Bị ẩn. |
| Hệ thống vb | 4 | Tệp hệ thống. Không khả dụng trên máy Macintosh. |
| vbDirectory | 16 | Thư mục hoặc thư mục. |
| vbLưu trữ | 32 | Tệp đã thay đổi kể từ lần sao lưu gần nhất. Không khả dụng trên máy Macintosh. |
| vbAlias | 64 | Tên tệp được chỉ định là một biệt danh. Chỉ sẵn dùng trên Macintosh. |
Lưu ý
Các hằng số này được xác định bởi Visual Basic for Applications. Tên có thể được sử dụng ở bất kỳ đâu trong mã của bạn thay cho giá trị thực tế.
Chú thích
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.
Để xác định thuộc tính nào được đặt, sử dụng toán tử And để thực hiện so sánh bitwise giữa giá trị do hàm GetAttr trả về và giá trị của thuộc tính tệp riêng lẻ mà bạn muốn. Nếu kết quả khác không, thì thuộc tính đó được thiết lập cho tệp có tên. Ví dụ: giá trị trả về của biểu thức And sau đây bằng không nếu thuộc tính Lưu trữ không được đặt:
Result = GetAttr(FName) And vbArchive
Trả về giá trị khác 0 nếu thuộc tính Lưu trữ được đặt.
Ví dụ
Ví dụ này sử dụng hàm GetAttr để xác định các thuộc tính của tệp, thư mục hoặc thư mục. Trên máy Macintosh, chỉ có các hằng số vbNormal, vbReadOnly, vbHidden và vbAlias là sẵn dùng.
Dim MyAttr
' Assume file TESTFILE has hidden attribute set.
MyAttr = GetAttr("TESTFILE") ' Returns 2.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And vbHidden
' Assume file TESTFILE has hidden and
' read-only attributes set.
MyAttr = GetAttr("TESTFILE") ' Returns 3.
' Returns nonzero if hidden attribute is
' set on TESTFILE.
Debug.Print MyAttr And (vbHidden + vbReadOnly)
' Assume MYDIR is a directory or folder.
MyAttr = GetAttr("MYDIR") ' Returns 16.