Module
Contents
Index 🔎︎

# Open Statement

데이터 채널을 엽니다.

## 구문:

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

## 매개 변수:

FileName: 열려는 파일의 이름과 경로입니다. 존재하지 않는 파일을 읽으려고 하면(Access = Read) 오류 메시지가 나타납니다. 존재하는 파일에 쓰려고 하면(Access = Write) 새 파일이 만들어집니다.

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