FileAttr Function

āĻ“āĻĒā§‡āĻ¨ āĻ¸ā§āĻŸā§‡āĻŸāĻŽā§‡āĻ¨ā§āĻŸā§‡āĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§‡ āĻ–ā§‹āĻ˛āĻž āĻāĻ•āĻŸāĻŋ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻĒā§āĻ°ā§Ÿā§‹āĻ—āĻ¨ āĻŽā§‹āĻĄ āĻ…āĻĨāĻŦāĻž āĻĢāĻžāĻ‡āĻ˛ āĻĒā§āĻ°ā§Ÿā§‹āĻ— āĻ•ā§āĻ°āĻŽ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻ•āĻ°ā§‡ āĻĨāĻžāĻ•ā§‡āĨ¤ āĻĢāĻžāĻ‡āĻ˛ āĻĒā§āĻ°ā§Ÿā§‹āĻ— āĻ•ā§āĻ°āĻŽāĻŸāĻŋ āĻ…āĻĒāĻžāĻ°ā§‡āĻŸāĻŋāĻ‚ āĻ¸āĻŋāĻ¸ā§āĻŸā§‡āĻŽā§‡āĻ° āĻ‰āĻĒāĻ° āĻ¨āĻŋāĻ°ā§āĻ­āĻ°āĻļā§€āĻ˛ (OSH = Operating System Handle)āĨ¤

āĻ¨ā§‹āĻŸ āĻ†āĻ‡āĻ•āĻ¨

āĻ†āĻĒāĻ¨āĻŋ āĻ¯āĻĻāĻŋ ā§Šā§¨ āĻŦāĻŋāĻŸ āĻ…āĻĒāĻžāĻ°ā§‡āĻŸāĻŋāĻ‚ āĻ¸āĻŋāĻ¸ā§āĻŸā§‡āĻŽ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°ā§‡āĻ¨, āĻ¤āĻžāĻšāĻ˛ā§‡ āĻĢāĻžāĻ‡āĻ˛ā§‡āĻ° āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§‡āĻļ āĻ•ā§āĻ°āĻŽ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻ•āĻ°āĻ¤ā§‡ FileAttr āĻĢāĻžāĻ‚āĻļāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻ•āĻ°āĻ¤ā§‡ āĻĒāĻžāĻ°āĻŦā§‡āĻ¨ āĻ¨āĻžāĨ¤


āĻ†āĻ°āĻ“ āĻĻā§‡āĻ–ā§āĻ¨: āĻ–ā§āĻ˛ā§āĻ¨

āĻ¸āĻŋāĻ¨āĻŸā§āĻ¯āĻžāĻ•ā§āĻ¸:


FileAttr (FileNumber As Integer, Attribute As Integer)

āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:

Integer

āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻŸāĻžāĻ°:

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

āĻ‰āĻĻāĻžāĻšāĻ°āĻŖ:


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

Please support us!