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 dạng Long thể hiện chế độ tệp cho các tệp được mở bằng cách sử dụng câu lệnh Open .
Cú pháp
FileAttr(filenumber,returntype)
Cú pháp của hàm FileAttr có những đối số sau:
| Đối số | Mô tả |
|---|---|
| số tệp | Bắt buộc. Số nguyên. Bất kỳ số tệp hợp lệ nào. |
| kiểu trả về | Bắt buộc. Số nguyên. Số cho biết loại thông tin cần trả về. Chỉ định 1 để trả về giá trị biểu thị chế độ tệp. Chỉ trên các hệ thống 16 bit, chỉ định 2 để truy xuất núm điều khiển tệp hệ điều hành. ReturnType 2 không được hỗ trợ trong hệ thống 32 bit và gây ra lỗi. |
Giá trị Trả về
Khi đối số returntypelà 1, các giá trị trả về sau đây cho biết chế độ truy nhập tệp:
| Chế độ | Value |
|---|---|
| Phương thức nhập | 1 |
| Đầu ra | 2 |
| Ngẫu nhiên | 4 |
| Chắp thêm | 8 |
| Nhị phân | 32 |
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 FileAttr để trả về chế độ tệp và núm điều khiển tệp của tệp đang mở. Núm điều khiển tệp chỉ được trả về trên hệ thống 16 bit; Trên các hệ thống 32 bit, việc chuyển 2 làm đối số thứ hai sẽ tạo ra lỗi.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number.
Open "TESTFILE" For Append As FileNum ' Open file.
Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode).
Handle = FileAttr(FileNum, 2) ' Returns file handle.
Close FileNum ' Close file.