หมายเหตุ
ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า 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.