ฟังก์ชัน GetAttr

ส่งกลับจํานวน เต็ม ที่แสดงแอตทริบิวต์ของไฟล์ ไดเรกทอรี หรือโฟลเดอร์

ไวยากรณ์

GetAttr(pathname)

อาร์กิวเมนต์ชื่อเส้นทางที่ต้องการคือนิพจน์สตริงที่ระบุชื่อไฟล์ ชื่อเส้นทางอาจรวมถึงไดเรกทอรีหรือโฟลเดอร์ และไดรฟ์

ค่าที่ส่งกลับ

ค่าที่ส่งกลับโดย GetAttr คือผลรวมของค่าแอตทริบิวต์ต่อไปนี้:

ค่าคงที่	ค่า	คำอธิบาย
vbNormal	0	ปกติ.
vbReadOnly	1	อ่านอย่างเดียว
vbHidden	2	ซ่อน
vbSystem	4	ไฟล์ระบบ ไม่พร้อมใช้งานใน Macintosh
vbDirectory	16	ไดเรกทอรีหรือโฟลเดอร์
vbArchive	32	ไฟล์มีการเปลี่ยนแปลงตั้งแต่การสํารองข้อมูลครั้งล่าสุด ไม่พร้อมใช้งานใน Macintosh
vbAlias	64	ชื่อไฟล์ที่ระบุเป็นนามแฝง พร้อมใช้งานบน Macintosh เท่านั้น

    

ข้อสังเกต

เมื่อต้องการกําหนดแอตทริบิวต์ที่จะถูกตั้งค่า ให้ใช้ตัวดําเนินการ And เพื่อทําการเปรียบเทียบค่าที่ส่งกลับโดยฟังก์ชัน GetAttr และค่าของแอตทริบิวต์ไฟล์แต่ละรายการที่คุณต้องการในระดับบิต ถ้าผลลัพธ์ไม่ใช่ศูนย์ แอตทริบิวต์นั้นจะถูกตั้งค่าสําหรับไฟล์ที่มีชื่อ ตัวอย่างเช่น ค่าส่งกลับของนิพจน์ And ต่อไปนี้เป็นศูนย์ถ้าไม่ได้ตั้งค่าแอตทริบิวต์ Archive

Result = GetAttr(FName) And vbArchive

ค่าที่ไม่ใช่ศูนย์จะถูกส่งกลับ ถ้าตั้งค่าแอตทริบิวต์ Archive ไว้

ตัวอย่าง

ตัวอย่างนี้จะใช้ฟังก์ชัน 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.