Applies ToAccess for Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

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

ต้องการความช่วยเหลือเพิ่มเติมหรือไม่

ต้องการตัวเลือกเพิ่มเติมหรือไม่

สํารวจสิทธิประโยชน์ของการสมัครใช้งาน เรียกดูหลักสูตรการฝึกอบรม เรียนรู้วิธีการรักษาความปลอดภัยอุปกรณ์ของคุณ และอื่นๆ

ชุมชนช่วยให้คุณถามและตอบคําถาม ให้คําติชม และรับฟังจากผู้เชี่ยวชาญที่มีความรู้มากมาย