FileAttr Function

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

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

If you use a 32-Bit operating system, you cannot use the FileAttr function to determine the file access number.


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

Syntax:


  FileAttr (Channel As Integer, Attributes As Integer)

Return value:

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

Parameters:

Channel: The number of the file that was opened with the Open statement.

Attributes: Integer expression that indicates the type of file information that you want to return. The following values are possible:

1: FileAttr indicates the access mode of the file.

2: FileAttr returns the file access number of the operating system.

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

рез - 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