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