หมายเหตุ: ฟังก์ชัน วิธีการ วัตถุ หรือคุณสมบัติที่อธิบายไว้ในหัวข้อนี้จะถูกปิดใช้งานถ้า Microsoft Jet Expression Service ทํางานในโหมด Sandbox ซึ่งจะป้องกันการประเมินนิพจน์ที่อาจไม่ปลอดภัย สําหรับข้อมูลเพิ่มเติมเกี่ยวกับโหมด Sandbox ให้ค้นหา "โหมด Sandbox" ในวิธีใช้
ส่งกลับ จํานวนเต็ม ที่แสดงแอตทริบิวต์ของไฟล์ ไดเรกทอรี หรือโฟลเดอร์
ไวยากรณ์
GetAttr ( pathname )
อาร์กิวเมนต์ ชื่อเส้นทาง ที่จําเป็นเป็น นิพจน์สตริง ที่ระบุชื่อไฟล์ ชื่อเส้นทางอาจรวมถึงไดเรกทอรีหรือโฟลเดอร์ และไดรฟ์
ส่งกลับค่า
ค่าที่ส่งกลับโดย GetAttr คือผลรวมของค่าแอตทริบิวต์ต่อไปนี้:
|
ค่าคงที่ |
ค่า |
คำอธิบาย |
|
vbNormal |
0 |
ปกติ |
|
vbReadOnly |
1 |
อ่านอย่างเดียว |
|
vbHidden |
2 |
ซ่อน |
|
vbSystem |
4 |
ไฟล์ระบบ ไม่พร้อมใช้งานบน Macintosh |
|
vbDirectory |
16 |
ไดเรกทอรีหรือโฟลเดอร์ |
|
vbArchive |
32 |
แฟ้มมีการเปลี่ยนแปลงหลังจากการสํารองข้อมูลครั้งล่าสุด ไม่พร้อมใช้งานบน Macintosh |
|
vbAlias |
64 |
ชื่อไฟล์ที่ระบุเป็นนามแฝง พร้อมใช้งานบน Macintosh เท่านั้น |
หมายเหตุ: ค่าคงที่เหล่านี้จะถูกระบุโดย Visual Basic for Applications คุณสามารถใช้ชื่อได้ทุกที่ในโค้ดของคุณแทนค่าจริง
ข้อสังเกต
หมายเหตุ: ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
เมื่อต้องการกําหนดแอตทริบิวต์ที่มีการตั้งค่า ให้ใช้ตัวดําเนินการ And เพื่อดําเนินการ การเปรียบเทียบระดับบิต ของค่าที่ส่งกลับโดยฟังก์ชัน GetAttr และค่าของแอตทริบิวต์ไฟล์แต่ละตัวที่คุณต้องการ ถ้าผลลัพธ์ไม่เป็นศูนย์ แอตทริบิวต์นั้นจะถูกตั้งค่าสําหรับไฟล์ที่มีชื่อ ตัวอย่างเช่น ค่าส่งกลับของนิพจน์ And ต่อไปนี้เป็นศูนย์ถ้าไม่ได้ตั้งค่าแอตทริบิวต์เก็บถาวร:
Result = GetAttr(FName) And vbArchive
ค่าที่ไม่ใช่ศูนย์จะถูกส่งกลับถ้าแอตทริบิวต์เก็บถาวรถูกตั้งค่าไว้
ตัวอย่าง
ตัวอย่างนี้ใช้ฟังก์ชัน GetAttr เพื่อกําหนดแอตทริบิวต์ของไฟล์และไดเรกทอรีหรือโฟลเดอร์ บน Macintosh จะมีเฉพาะค่าคงที่ vbNormal, vbReadOnly, vbHidden และ vbAlias เท่านั้น
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.
