FileAttr Function

āĻ“āĻĒ⧇āύ āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻ–ā§‹āϞāĻž āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āĻĒā§āĻ°ā§Ÿā§‹āĻ—āύ āĻŽā§‹āĻĄ āĻ…āĻĨāĻŦāĻž āĻĢāĻžāχāϞ āĻĒā§āĻ°ā§Ÿā§‹āĻ— āĻ•ā§āϰāĻŽ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āĻĢāĻžāχāϞ āĻĒā§āĻ°ā§Ÿā§‹āĻ— āĻ•ā§āϰāĻŽāϟāĻŋ āĻ…āĻĒāĻžāϰ⧇āϟāĻŋāĻ‚ āϏāĻŋāĻ¸ā§āĻŸā§‡āĻŽā§‡āϰ āωāĻĒāϰ āύāĻŋāĻ°ā§āĻ­āϰāĻļā§€āϞ (OSH = Operating System Handle)āĨ¤

āύ⧋āϟ āφāχāĻ•āύ

āφāĻĒāύāĻŋ āϝāĻĻāĻŋ ā§Šā§¨ āĻŦāĻŋāϟ āĻ…āĻĒāĻžāϰ⧇āϟāĻŋāĻ‚ āϏāĻŋāĻ¸ā§āĻŸā§‡āĻŽ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧇āύ, āϤāĻžāĻšāϞ⧇ āĻĢāĻžāχāϞ⧇āϰ āϏāĻ¨ā§āύāĻŋāĻŦ⧇āĻļ āĻ•ā§āϰāĻŽ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰāϤ⧇ FileAttr āĻĢāĻžāĻ‚āĻļāύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰāϤ⧇ āĻĒāĻžāϰāĻŦ⧇āύ āύāĻžāĨ¤


āφāϰāĻ“ āĻĻ⧇āϖ⧁āύ: āϖ⧁āϞ⧁āύ

Syntax:


FileAttr (FileNumber As Integer, Attribute As Integer)

Return value:

Integer

Parameters:

FileNumber: āĻĢāĻžāχāϞ⧇āϰ āĻ•ā§āϰāĻŽ āϝāĻž āĻāĻ•āϟāĻŋ āĻ–ā§‹āϞāĻž āĻ¸ā§āĻŸā§‡āϟāĻŽā§‡āĻ¨ā§āĻŸā§‡āϰ āϏāĻžāĻšāĻžāĻ¯ā§āϝ⧇ āĻ–ā§‹āϞāĻž āĻšā§Ÿā§‡āĻ›āĻŋāϞāĨ¤

āĻŦ⧈āĻļāĻŋāĻˇā§āĻŸā§āϝ: āĻĢāĻžāχāϞ⧇āϰ āϤāĻĨā§āϝ āϏāĻŽā§āĻĒāĻ°ā§āĻ•āĻŋāϤ āϟāĻžāχāĻĒ āύāĻŋāĻ°ā§āĻĻ⧇āĻļāĻ• āĻ¸ā§āĻŸā§āϰāĻŋāĻ‚ āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āφāĻĒāύāĻŋ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰāϤ⧇ āϚāĻžāύāĨ¤ āϏāĻŽā§āĻ­āĻžāĻŦā§āϝ āĻŽāĻžāύāϏāĻŽā§€āĻš āύāĻŋāϛ⧇ āωāĻ˛ā§āϞ⧇āĻ– āĻ•āϰāĻž āĻšāϞ⧋:

1: FileAttr-āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻāĻ•āϟāĻŋ āĻĢāĻžāχāϞ⧇āϰ āϤāĻĨā§āϝ āύāĻŋāĻŦ⧇āĻļ⧇āϰ āĻŽā§‹āĻĄ āύāĻŋāĻ°ā§āĻĻ⧇āĻļ āĻ•āϰ⧇āĨ¤

2: FileAttr-āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ āĻ…āĻĒāĻžāϰ⧇āϟāĻŋāĻ‚ āϏāĻŋāĻ¸ā§āĻŸā§‡āĻŽā§‡āϰ āĻĢāĻžāχāϞ⧇āϰ āϏāĻ¨ā§āύāĻŋāĻŦ⧇āĻļ āĻ¤ā§āϰ⧁āϟāĻŋ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤

āφāĻĒāύāĻŋ āϝāĻĻāĻŋ āĻŽāĻžāύ ā§§ āϏāĻšāĻ•āĻžāϰ⧇ āĻāĻ•āϟāĻŋ āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ⧇āϰ āĻŦ⧈āĻļāĻŋāĻˇā§āĻŸā§āϝ āωāĻ˛ā§āϞ⧇āĻ– āĻ•āϰ⧇āύ, āϤāĻžāĻšāϞ⧇ āύāĻŋāĻšā§‡āϰ āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ āĻĒā§āĻ°ā§Ÿā§‹āĻ— āĻšā§Ÿ:

1 - INPUT (āχāύāĻĒ⧁āĻŸā§‡āϰ āϜāĻ¨ā§āϝ āĻĢāĻžāχāϞāϟāĻŋ āĻ–ā§‹āϞāĻž)

2 - OUTPUT (āφāωāϟāĻĒ⧁āĻŸā§‡āϰ āϜāĻ¨ā§āϝ āĻĢāĻžāχāϞāϟāĻŋ āĻ–ā§‹āϞāĻž)

4 - RANDOM (āĻ°â€ā§āϝāĻžāĻ¨ā§āĻĄāĻŽ āĻĒā§āĻ°ā§Ÿā§‹āϗ⧇āϰ āϜāĻ¨ā§āϝ āĻĢāĻžāχāϞ āωāĻ¨ā§āĻŽā§āĻ•ā§āϤ)

8 - APPEND (āĻĒāϰāĻŋāĻļ⧇āώ⧇ āϝ⧋āĻ— āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āĻĢāĻžāχāϞāϟāĻŋ āĻ–ā§‹āϞāĻž)

32 - BINARY (āĻŦāĻžāχāύāĻžāϰ⧀ āĻŽā§‹āĻĄā§‡ āĻĢāĻžāχāϞāϟāĻŋ āĻ–ā§‹āϞāĻž)āĨ¤

Error codes:

5 Invalid procedure call

52 Bad file name or number

Example:


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

Please support us!