ฟังก์ชัน GetAttr

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

ไวยากรณ์

GetAttr(pathname)

อาร์กิวเมนต์ 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.