LibreOffice 7.1 Help
Open λ¬ΈμΌλ‘ μ° νμΌμ μ‘μΈμ€ λͺ¨λ λλ νμΌ μ‘μΈμ€ λ²νΈλ₯Ό νμν©λλ€. νμΌ μ‘μΈμ€ λ²νΈλ μ΄μ 체μ μ λ°λΌ λ¬λΌμ§λλ€(OSH = Operating System Handle).
32λΉνΈ μ΄μ 체μ λ₯Ό μ¬μ©ν κ²½μ° FileAttr ν¨μλ₯Ό μ¬μ©νμ¬ νμΌ μ‘μΈμ€ λ²νΈλ₯Ό νμΈν μ μμ΅λλ€.
μ°Έκ³ νλͺ©: Open
FileAttr (FileNumber As Integer, Attribute As Integer)
Integer
FileNumber: Open λ¬ΈμΌλ‘ μ° νμΌμ λ²νΈμ λλ€.
Attribute: νμν νμΌ μ 보μ μ νμ λνλ΄λ μ μ μμ λλ€. λ€μκ³Ό κ°μ κ°μ μ¬μ©ν μ μμ΅λλ€.
1: FileAttr ν¨μκ° νμΌμ μ‘μΈμ€ λͺ¨λλ₯Ό λνλ λλ€.
2: FileAttr ν¨μκ° μ΄μ 체μ μ νμΌ μ‘μΈμ€ λ²νΈλ₯Ό νμν©λλ€.
λ§€κ° λ³μ μμ±μ 1λ‘ μ§μ ν κ²½μ° λ€μμ λ°ν κ°μ΄ μ μ©λ©λλ€.
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:\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