FileAttr Function

Open 문으둜 μ—° 파일의 μ•‘μ„ΈμŠ€ λͺ¨λ“œ λ˜λŠ” 파일 μ•‘μ„ΈμŠ€ 번호λ₯Ό ν‘œμ‹œν•©λ‹ˆλ‹€. 파일 μ•‘μ„ΈμŠ€ λ²ˆν˜ΈλŠ” 운영 μ²΄μ œμ— 따라 λ‹¬λΌμ§‘λ‹ˆλ‹€(OSH = Operating System Handle).

μ°Έκ³  μ•„μ΄μ½˜

32λΉ„νŠΈ 운영 체제λ₯Ό μ‚¬μš©ν•  경우 FileAttr ν•¨μˆ˜λ₯Ό μ‚¬μš©ν•˜μ—¬ 파일 μ•‘μ„ΈμŠ€ 번호λ₯Ό 확인할 수 μ—†μŠ΅λ‹ˆλ‹€.


μ°Έκ³  ν•­λͺ©: Open

Syntax:


FileAttr (FileNumber As Integer, Attribute As Integer)

Return value:

Integer

Parameters:

FileNumber: Open 문으둜 μ—° 파일의 λ²ˆν˜Έμž…λ‹ˆλ‹€.

Attribute: ν‘œμ‹œν•  파일 μ •λ³΄μ˜ μœ ν˜•μ„ λ‚˜νƒ€λ‚΄λŠ” μ •μˆ˜ μ‹μž…λ‹ˆλ‹€. λ‹€μŒκ³Ό 같은 값을 μ‚¬μš©ν•  수 μžˆμŠ΅λ‹ˆλ‹€.

1: FileAttr ν•¨μˆ˜κ°€ 파일의 μ•‘μ„ΈμŠ€ λͺ¨λ“œλ₯Ό λ‚˜νƒ€λƒ…λ‹ˆλ‹€.

2: FileAttr ν•¨μˆ˜κ°€ 운영 체제의 파일 μ•‘μ„ΈμŠ€ 번호λ₯Ό ν‘œμ‹œν•©λ‹ˆλ‹€.

맀개 λ³€μˆ˜ 속성을 1둜 μ§€μ •ν•  경우 λ‹€μŒμ˜ λ°˜ν™˜ 값이 μ μš©λ©λ‹ˆλ‹€.

1 - INPUT(μž…λ ₯을 μœ„ν•œ 파일 μ—΄κΈ°)

2 - OUTPUT(좜λ ₯을 μœ„ν•œ 파일 μ—΄κΈ°)

4 - RANDOM(μž„μ˜ μ•‘μ„ΈμŠ€λ₯Ό μœ„ν•œ 파일 μ—΄κΈ°)

8 - APPEND(μΆ”κ°€λ₯Ό μœ„ν•œ 파일 μ—΄κΈ°)

32 - BINARY(이진 λͺ¨λ“œλ‘œ 파일 μ—΄κΈ°)

Error codes:

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
    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