LibreOffice 7.5 Help
āĻāĻĒā§āύ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻā§āϞāĻž āĻāĻāĻāĻŋ āĻĢāĻžāĻāϞā§āϰ āĻĒā§āϰā§ā§āĻāύ āĻŽā§āĻĄ āĻ āĻĨāĻŦāĻž āĻĢāĻžāĻāϞ āĻĒā§āϰā§ā§āĻ āĻā§āϰāĻŽ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻĢāĻžāĻāϞ āĻĒā§āϰā§ā§āĻ āĻā§āϰāĻŽāĻāĻŋ āĻ āĻĒāĻžāϰā§āĻāĻŋāĻ āϏāĻŋāϏā§āĻā§āĻŽā§āϰ āĻāĻĒāϰ āύāĻŋāϰā§āĻāϰāĻļā§āϞ (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 (āĻŦāĻžāĻāύāĻžāϰ⧠āĻŽā§āĻĄā§ āĻĢāĻžāĻāϞāĻāĻŋ āĻā§āϞāĻž)āĨ¤
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