Online Reference

Home

GetAttr Function

VBA Function, ส่งออกค่าเป็นประเภทข้อมูล Integer ตามคุณลักษณะไฟล์ ไดเรคทอรี หรือโฟลเดอร์

ไวยากรณ์

GetAttr(pathname )

อากิวเมนต์ pathname ต้อง Expression ของข้อความที่ระบุชื่อไฟล์ โดย pathname ต้องระบุไดเรคทอรี่ หรือโฟลเดอร์ และไดร์ฟ

ค่าที่ส่งออก

ฟังก์ชัน GetAttr ส่งค่าออกตามรายการสรุปของค่า คือ

หมายเหตุ

• ค่าคงที่เหล่านี้เป็นระบุโดย Visual Basic for Application ชื่อเหล่านี้สามารถใช้ในคำสั่งในการหาค่า
  ลักษณะการประยุกต์

การหาค่า attribute ที่กำหนด ใช้ตัวดำเนินการ And ในการประมวลผลเปรียบเทียบ bitwise ของค่าที่ส่งออกโดยฟังก์ชัน GetAttr และค่าลักษณะของไฟล์ ถ้าผลลัพธ์ไม่เป็น 0 แสดงว่าไฟล์นั้นมี attribute ตามที่กำหนด เช่น ค่าที่ส่งออกด้วย expression ของ And มีค่าเป็น 0 ถ้า attribute ไม่ได้กำหนดเป็น archive

Result = GetAttr(FName) And vbArchive

ค่าที่ไม่ใช่ 0 จะได้รับการส่งออกถ้ากำหนด attribute เป็น archive

ดูเพิ่มเติม

And (Operator), ฟังก์ชัน FileAttr, SetAttr Statement

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน GetAttr ในการหา attribute ของไฟล์ และไดเรคทอรี่หรือโฟล์เดอร์

' สมมติไฟล์ TESTFILE กำหนด attribute เป็น hidden ส่งออกค่า 2
Dim MyAttr
MyAttr = GetAttr("TESTFILE")

' ส่งออกค่าไม่เป็น 0 ถ้ากำหนด attribute เป็น hidden ให้ TESTFILE
Debug.Print MyAttr And vbHidden

' สมมติไฟล์ TESTFILE มี attribute เป็น hidden และ read-only ส่งออกค่า 3
MyAttr = GetAttr("TESTFILE")

' ส่งออกค่าไม่เป็น 0 ถ้ากำหนด attribute เป็น hidden ให้ TESTFILE
Debug.Print MyAttr And (vbHidden + vbReadOnly)

'สมมติให้ MYDIR เป็น ไดเรคทอรี่หรือโฟล์เดอร์ ส่งออกค่า 16
MyAttr = GetAttr("MYDIR")