FileAttr Function

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(이진 λͺ¨λ“œλ‘œ 파일 μ—΄κΈ°)

Error codes:

5 잘λͺ»λœ ν”„λ‘œμ‹œμ € ν˜ΈμΆœμž…λ‹ˆλ‹€.

52 잘λͺ»λœ 파일 이름 λ˜λŠ” λ²ˆν˜Έμž…λ‹ˆλ‹€.

예:

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