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