FileAttr Function

αžαŸ’αžšαž‘αž”αŸ‹β€‹αžšαž”αŸ€αž”β€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžš αž¬β€‹αž›αŸαžβ€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž―αž€αžŸαžΆαžšβ€‹αž“αŸƒβ€‹αž―αž€αžŸαžΆαžšβ€‹αž˜αž½αž™β€‹ αžŠαŸ‚αž›β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αžΎαž€β€‹αž‡αžΆαž˜αž½αž™β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ OpenΒ αŸ” αž›αŸαžβ€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž―αž€αžŸαžΆαžšβ€‹αž‚αžΊβ€‹αž–αžΉαž„αž•αŸ’αž’αŸ‚αž€β€‹αž›αžΎβ€‹αž”αŸ’αžšαž–αŸαž“αŸ’αž’β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αžΆαžš (OSH = Operating System Handle)Β αŸ”

αžšαžΌαž”β€‹αžαŸ†αžŽαžΆαž„β€‹αž…αŸ†αžŽαžΆαŸ†

αž”αŸ’αžšαžŸαž·αž“β€‹αž”αžΎβ€‹αž’αŸ’αž“αž€β€‹αž”αŸ’αžšαžΎβ€‹αž”αŸ’αžšαž–αŸαž“αŸ’αž’β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αžΆαžš ៣្ αž”αŸŠαžΈαž αž’αŸ’αž“αž€β€‹αž˜αž·αž“β€‹αž’αžΆαž…β€‹αž”αŸ’αžšαžΎβ€‹αž’αž“αž»αž‚αž˜αž“αŸ FileAttr αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž€αŸ†αžŽαžαŸ‹β€‹αž›αŸαžβ€‹β€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹β€‹αž―αž€αžŸαžΆαžšΒ αŸ”


αž˜αžΎαž›β€‹αž•αž„β€‹αžŠαŸ‚αžš αŸ– αž”αžΎαž€

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–

FileAttr (FileNumber As Integer, Attribute As Integer)

αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαž‘αž”αŸ‹ αŸ–

αž…αŸ†αž“αž½αž“β€‹αž‚αžαŸ‹

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

αž…αŸ†αž“αž½β€‹αž“β€‹αž―αž€αžŸαžΆαžšβ€‹ αŸ– αž›αŸαžβ€‹αž―αž€αžŸαžΆαžšβ€‹αžŠαŸ‚αž›β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αžΎαž€β€‹αž‡αžΆαž˜αž½αž™β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ OpenΒ αŸ”

AttributeΒ αŸ– αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž…αŸ†αž“αž½αž“β€‹αž‚αžαŸ‹ αžŠαŸ‚αž›β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹αž”αŸ’αžšαž—αŸαž‘β€‹αžšαž”αžŸαŸ‹β€‹αž–αŸαžαŸŒαž˜αžΆαž“β€‹αž―αž€αžŸαžΆαžš αžŠαŸ‚αž›β€‹αž’αŸ’αž“αž€β€‹αž…αž„αŸ‹β€‹αžαŸ’αžšαž‘αž”αŸ‹Β αŸ” αž˜αžΆαž“β€‹αžαž˜αŸ’αž›αŸƒβ€‹αžŠαžΌαž…β€‹αžαžΆαž„β€‹αž€αŸ’αžšαŸ„αž˜Β αŸ–

1 αŸ– αž’αž“αž»αž‚αž˜αž“αŸ FileAttr αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹αž–αžΈβ€‹αžšαž”αŸ€αž”β€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž“αŸƒβ€‹αž―αž€αžŸαžΆαžšΒ αŸ”

2 αŸ– αž’αž“αž»αž‚αž˜αž“αŸ FileAttr αžαŸ’αžšαž‘αž”αŸ‹β€‹β€‹αž›αŸαžβ€‹β€‹αžŠαŸ†αžŽαžΎαžšβ€‹αž€αžΆαžšβ€‹αž―αž€αžŸαžΆαžš αž“αŸƒβ€‹αž”αŸ’αžšαž–αŸαž“αŸ’αž’β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹αž€αžΆαžš αŸ”

αž”αŸ’αžšαžŸαž·αž“β€‹αž”αžΎβ€‹αž’αŸ’αž“αž€β€‹αž”αž‰αŸ’αž‡αžΆαž€αŸ‹β€‹β€‹β€‹αž‚αž»αžŽβ€‹αž›αž€αŸ’αžαžŽαŸˆβ€‹αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžšβ€‹αž‡αžΆαž˜αž½αž™β€‹αžαž˜αŸ’αž›αŸƒ ៑ αžαž˜αŸ’αž›αŸƒβ€‹αžαŸ’αžšαž‘αž”αŸ‹β€‹αžαžΆαž„β€‹αž€αŸ’αžšαŸ„αž˜ αž“αžΉαž„β€‹αž’αž“αž»αžœαžαŸ’αž αŸ–

1 - INPUT (αž”αžΎαž€β€‹αž―αž€αžŸαžΆαžš αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž”αž‰αŸ’αž…αžΌαž›)

2 - OUTPUT (αž”αžΎαž€β€‹αž―αž€αžŸαžΆαžš αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž”αž„αŸ’αž αžΆαž‰)

4 - RANDOM (αž”αžΎαž€β€‹αž―αž€αžŸαžΆαžš αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž…αžΌαž›β€‹αžŠαŸ†αžŽαžΎαžšαž€αžΆαžšβ€‹αž…αŸƒαžŠαž“αŸ’αž™)

8 - APPEND (αž”αžΎαž€β€‹αž―αž€αžŸαžΆαžš αžŸαž˜αŸ’αžšαžΆαž”αŸ‹β€‹αž”αž“αŸ’αžαŸ‚αž˜β€‹αžαžΆαž„β€‹αž…αž»αž„)

32 - BINARY (αž”αžΎαž€β€‹αž―αž€αžŸαžΆαžšβ€‹αž€αŸ’αž“αž»αž„β€‹αžšαž”αŸ€αž”β€‹αž‚αŸ„αž›β€‹αž–αžΈαžš)Β αŸ”

Error codes:

5 αž€αžΆαžšβ€‹αž αŸ…β€‹αž”αŸ‚αž”αž”αž‘β€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

52 αžˆαŸ’αž˜αŸ„αŸ‡ αž¬β€‹αž›αŸαžβ€‹αž―αž€αžŸαžΆαžšβ€‹αž˜αž·αž“β€‹αžαŸ’αžšαžΉαž˜αžαŸ’αžšαžΌαžœ

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–

Sub ExampleFileAttr

Dim iNumber As Integer

Dim sLine As String

Dim aFile As String

    aFile = "c:\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