LibreOffice 7.6 Help
рдЦреБрд▓рд╛ рдХрдерди рд╕рдБрдЧ рдЦреБрд▓реЗрдХреЛ рдлрд╛рдЗрд▓рдХреЛ рдкрд╣реБрдБрдЪ рдореЛрдб рд╡рд╛ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░ рдлрд░реНрдХрд╛рдЙрдБрджрдЫ ред рдпреЛ рдлрд╛рдЗрд▓ рдкрд╣реБрдБрдЪ рдирдореНрдмрд░ рд╕рдЮреНрдЪрд╛рд▓рд┐рдд рдкреНрд░рдгрд╛рд▓реА(OSH = Operating System Handle)рдорд╛ рдирд┐рд░реНрднрд░ рдЧрд░реНрджрдЫ ред
If you use a 32-Bit operating system, you cannot use the FileAttr function to determine the file access number.
рдпреЛ рдкрдирд┐ рд╣реЗрд░реНрдиреБрд╣реЛрд╕реН: рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН
FileAttr (Channel As Integer, Attributes As Integer)
рдЗрдиреНрдЯрд┐рдЬрд░
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 (рдмрд╛рдЗрдирд░реА рдореЛрдбрдорд╛ рдлрд╛рдЗрд▓ рдЦреЛрд▓реНрдиреБрд╣реЛрд╕реН)
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