FileAttr Function

рдЦреБрд▓рд╛ рдХрдерди рд╕рдБрдЧ рдЦреБрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рдХреЛ рдкрд╣реБрдБрдЪ рдореЛрдб рд╡рд╛ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрджрдЫ ред рдпреЛ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░ рд╕рдЮреНрдЪрд╛рд▓рд┐рдд рдкреНрд░рдгрд╛рд▓реА(OSH = Operating System Handle)рдорд╛ рдирд┐рд░реНрднрд░ рдЧрд░реНрджрдЫ ред

рджреНрд░рд╖реНрдЯрд╡реНрдп рдкреНрд░рддрд┐рдорд╛

рдпрджрд┐ рд╕рдЮреНрдЪрд╛рд▓рд┐рдд рдкреНрд░рдгрд╛рд▓реА рейреи-рдмрд┐рдЯ рдкреНрд░рдпреЛрдЧ рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рддрдкрд╛рдИрдБ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░рдХреЛ рдирд┐рд░реНрдзрд╛рд░рдг рдЧрд░реНрдирд▓рд╛рдИ FileAttr-рдкреНрд░рдХрд╛рд░реНрдп рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХреНрдиреБрд╣реБрдиреНрди ред


рдпреЛ рдкрдирд┐ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН: рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН

Syntax:


FileAttr (рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рдлрд╛рдЗрд▓ рдирдореНрдмрд░, рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ рдЗрдиреНрдЯрд┐рдЬрд░)

Return value:

рдЗрдиреНрдЯрд┐рдЬрд░

Parameters:

рдлрд╛рдЗрд▓ рдирдореНрдмрд░:рддреА рдЦреБрд▓рд╛ рдХрдерди рд╕рдБрдЧ рдЦреБрд▓рд┐ рд╕рдХреЗрдХрд╛ рдлрд╛рдЗрд▓рдХреЛ рдлрд╛рдЗрд▓ рдирдореНрдмрд░рд╣рд░реВ ред

рд╡рд┐рд╢реЗрд╖рддрд╛:рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рддреНрдпрд╕рд▓реЗ рддрдкрд╛рдИрдБрд▓реЗ рдЪрд╛рд╣реЗрдорд╛ рдлрд░реНрдХрд╛рдЙрди рд╕рдХреНрдиреЗ рд╕реВрдЪрдирд╛ рдлрд╛рдЗрд▓рдХреЛ рдкреНрд░рдХрд╛рд░ рджрд░реНрд╢рд╛рдЙрджрдЫ ред рджрд┐рдПрдХрд╛ рдорд╛рдирд╣рд░реВ рд╕рдореНрднрд╡ рдЫрдиреН:

рез: FileAttr-рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рдлрд╛рдЗрд▓рдХреЛ рдкрд╣реБрдБрдЪ рдореЛрдб рджрд░реНрд╢рд╛рдЙрджрдЫ ред

реи: FileAttr-рдкреНрд░рдХрд╛рд░реНрдпрд▓реЗ рд╕рдЮреНрдЪрд╛рд▓рд┐рдд рдкреНрд░рдгрд╛рд▓реАрдХреЛ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рдпрджрд┐ рддрдкрд╛рдИрдБрд▓реЗ рез рдХреЛ рдорд╛рди рд╕рдБрдЧ рдкрд░рд╛рдорд┐рддрд┐ рд╡рд┐рд╢реЗрд╖рддрд╛рд╣рд░реВ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрдиреБ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рджрд┐рдПрдХрд╛ рдлрд┐рд░реНрддрд╛ рдорд╛рдирд╣рд░реВ рд▓рд╛рдЧреВ рдЧрд░реНрдиреБрд╣реЛрд╕реН:

рез - INPUT (рдЖрдЧрддрдХрд╛ рд▓рд╛рдЧрд┐ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)

реи - OUTPUT(рдирд┐рд░реНрдЧрддрдХрд╛ рд▓рд╛рдЧрд┐ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)

рек - RANDOM(рдЕрдирд┐рдпрдорд┐рдд рдкрд╣реБрдБрдЪрдХрд╛ рд▓рд╛рдЧрд┐ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)

рео - APPEND (рдЬреЛрдбреНрдирдХрд╛ рд▓рд╛рдЧрд┐ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)

рейреи - BINARY (рдмрд╛рдЗрдирд░реА рдореЛрдбрдорд╛ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

52 рдЦрд░рд╛рдм рдлрд╛рдЗрд▓ рдирд╛рдо рд╡рд╛ рдирдореНрдмрд░

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
    #iNumber, "рдпреЛ рдкрд╛рдардХреЛ рд▓рд╛рдЗрди рд╣реЛ" рдореБрджреНрд░рдг рдЧрд░реНрдиреБрд╣реЛрд╕реН
    MsgBox FileAttr(#iNumber, 1), 0, "Access mode"
    MsgBox FileAttr(#iNumber, 2), 0, "File attribute"
    Close #iNumber
End Sub

Please support us!