Contents
Index 🔎︎

# Open Statement

데이터 채널을 엽니다.

## 구문:

    FileName As String 열기 [For Mode] [Access IOMode] [Protected] As [#]FileNumber As Integer [Len = DatasetLength]

## 매개 변수:

FileName: Name and path of the file to open. If you try to read a file that does not exist (Access = Read), an error message appears. If you try to write to a file that does not exist (Access = Write), a new file is created.

Mode: 파일 모드를 지정하는 키워드입니다. 유효한 값: Append(순차 파일에 추가), Binary(Get 및 Put을 사용하여 바이트로 데이터에 액세스할 수 있음), Input(읽기를 위해 데이터 채널 열기), Output(쓰기를 위해 데이터 채널 열기) 및 Random(상대 파일 편집)

IOMode: 액세스 유형을 정의하는 키워드입니다. 유효한 값: Read(읽기 전용), Write(쓰기 전용), Read Write(모두)

Protected: 파일을 연 후 파일의 보안 상태를 지정하는 키워드입니다. 유효한 값: Shared(다른 응용 프로그램에서 파일을 열 수 있음), Lock Read(파일 읽기 금지), Lock Write(파일 쓰기 금지), Lock Read Write(파일 액세스 거부)

FileNumber: 사용 가능한 데이터 채널의 번호를 나타내는 0에서 511 사이의 임의의 정수 식입니다. 해당 데이터 채널을 통해 명령을 전달하여 파일에 액세스할 수 있습니다. Open 문 바로 앞에서 FreeFile 함수로 파일 번호를 결정해야 합니다.

DatasetLength: 임의 액세스 파일에 대해 레코드의 길이를 설정합니다.

Open 문으로 연 파일의 내용만 수정할 수 있습니다. 이미 연 파일을 열려고 하면 오류 메시지가 나타납니다.

## 예:

    Sub ExampleWorkWithAFile
    Dim iNumber As Integer
    Dim sLine As String
    Dim aFile As String
    Dim sMsg As String
        aFile = "c:\data.txt"
        iNumber = Freefile
        Open aFile For Output As #iNumber
        Print #iNumber, "This is a line of text"
        Print #iNumber, "다른 줄 텍스트입니다."
        Close #iNumber
        iNumber = Freefile
        Open aFile For Input As iNumber
        While Not eof(iNumber)
            Line Input #iNumber, sLine
            If sLine <>"" Then
                sMsg = sMsg & sLine & chr(13)
            End If
        Wend
        Close #iNumber
        MsgBox sMsg
    End Sub