ຟັງຊັນ FileAttr

ສົ່ງຄືນໂໝດການເຂົ້າເຖິງ ຫຼື ໝາຍເລກການເຂົ້າເຖິງໄຟລ໌ ຂອງໄຟລ໌ທີ່ຖືກເປີດດ້ວຍຄຳສັ່ງ Open. ໝາຍເລກການເຂົ້າເຖິງໄຟລ໌ແມ່ນຂຶ້ນກັບລະບົບປະຕິບັດການ (OSH = Operating System Handle).

ຫາກທ່ານໃຊ້ລະບົບປະຕິບັດການແບບ 32-Bit, ທ່ານຈະບໍ່ສາມາດໃຊ້ຟັງຊັນ FileAttr ເພື່ອຫາໝາຍເລກການເຂົ້າເຖິງໄຟລ໌ໄດ້.

ເບິ່ງຕື່ມ: Open

ໄວຍາກອນ:


  FileAttr (Channel As Integer, Attributes As Integer)

ປະເພດຄ່າທີ່ສົ່ງກັບ:

ຈຳນວນຖ້ວນ

ພາຣາມິເຕີ:

Channel: ໝາຍເລກຂອງໄຟລ໌ທີ່ຖືກເປີດດ້ວຍຄຳສັ່ງ Open.

Attributes: ນິພົດຈຳນວນຖ້ວນທີ່ບອກປະເພດຂໍ້ມູນໄຟລ໌ທີ່ທ່ານຕ້ອງການໃຫ້ສົ່ງຄືນ. ຄ່າທີ່ເປັນໄປໄດ້ມີດັ່ງນີ້:

1: FileAttr ບອກໂໝດການເຂົ້າເຖິງຂອງໄຟລ໌.

2: FileAttr ສົ່ງຄືນໝາຍເລກການເຂົ້າເຖິງໄຟລ໌ຂອງລະບົບປະຕິບັດການ.

ຫາກທ່ານລະບຸພາຣາມິເຕີ attribute ເປັນຄ່າ 1, ຄ່າສົ່ງຄືນຈະເປັນດັ່ງນີ້:

1 - INPUT (ໄຟລ໌ເປີດສຳລັບການປ້ອນຂໍ້ມູນ)

2 - OUTPUT (ໄຟລ໌ເປີດສຳລັບການສະແດງຜົນ)

4 - RANDOM (ໄຟລ໌ເປີດສຳລັບການເຂົ້າເຖິງແບບສຸ່ມ)

8 - APPEND (ໄຟລ໌ເປີດສຳລັບການຂຽນຕໍ່ທ້າຍ)

32 - BINARY (ໄຟລ໌ເປີດໃນໂໝດບີນາຣີ).

ລະຫັດຂໍ້ຜິດພາດ:

5 ການເອີ້ນໃຊ້ໂປຣຊີເຈີບໍ່ຖືກຕ້ອງ

52 ຊື່ໄຟລ໌ ຫຼື ເລກໄຟລ໌ບໍ່ຖືກຕ້ອງ

ຕົວຢ່າງ:


Sub ExampleFileAttr
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    aFile = "C:\Users\ThisUser\data.txt"
    iNumber = Freefile
    Open aFile For Output As #iNumber
    Print #iNumber, "This is a line of text"
    MsgBox FileAttr(#iNumber, 1), 0, "Access mode"
    MsgBox FileAttr(#iNumber, 2), 0, "File attribute"
    Close #iNumber
End Sub