หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับ Long ที่แสดงโหมดไฟล์สําหรับไฟล์ที่เปิดโดยใช้คําสั่ง เปิด
ไวยากรณ์
FileAttr ( filenumber , returntype )
ไวยากรณ์ของฟังก์ชัน FileAttr มีอาร์กิวเมนต์ดังนี้
|
อาร์กิวเมนต์ |
คำอธิบาย |
|
filenumber |
จำเป็น จํานวนเต็ม หมายเลขไฟล์ ที่ถูกต้องใดๆ |
|
returntype |
จำเป็น จํานวนเต็ม ตัวเลขที่ระบุชนิดของข้อมูลที่จะส่งกลับ ระบุ 1 เพื่อส่งกลับค่าที่ระบุโหมดแฟ้ม บนระบบ 16 บิตเท่านั้น ให้ระบุ 2 เพื่อเรียกใช้ตัวจัดการไฟล์ระบบปฏิบัติการ returntype 2 ไม่ได้รับการสนับสนุนในระบบ 32 บิตและทําให้เกิดข้อผิดพลาด |
ส่งกลับค่า
เมื่ออาร์กิวเมนต์returntype เป็น 1 ค่าที่ส่งกลับต่อไปนี้จะระบุโหมดการเข้าถึงไฟล์:
|
โหมด |
ค่า |
|
ข้อมูลที่ป้อนเข้า |
1 |
|
เอาต์พุต |
2 |
|
แบบ สุ่ม |
4 |
|
ผนวก |
8 |
|
ไบนารี |
32 |
ตัวอย่าง
หมายเหตุ: ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน FileAttr เพื่อส่งกลับโหมดไฟล์และตัวจัดการไฟล์ของไฟล์ที่เปิดอยู่ ตัวจัดการไฟล์จะถูกส่งกลับบนระบบ 16 บิตเท่านั้น ในระบบ 32 บิต ที่ส่งผ่าน 2 เป็นอาร์กิวเมนต์ที่สองจะสร้างข้อผิดพลาด
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.
