FreeFile

[올란도]

◆ FreeFile 함수

Open 문에 사용할 수 있는 다음 파일 번호를 나타내는 Integer를 반환합니다.

구문  FreeFile[(rangenumber)]

선택 항목인 rangenumber 인수에는 다음의 사용 가능한 번호가 반환되는 범위를 지정하는 Variant

를 사용합니다. 기본값 0을 지정하면 1 - 255 범위에 있는 파일 번호를 반환하고, 1을 지정하면 256 - 511 범위에 있는 파일 번호를 반환합니다.

참고 파일 번호가 이미 사용되지는 않았는지 확인하기 위해 FreeFile을 사용합니다.

FreeFile 함수 예제  이 예제는 다음으로 사용 가능한 파일 번호를 반환하기 위해 FreeFile 함수를 사용합니다. 루프 내에는 출력용으로 다섯 개의 파일이 열리며 각각의 파일에는 몇 가지 예제 데이터가 작성됩니다.

Dim MyIndex, FileNumber

For MyIndex = 1 To 5            ' 5회 반복합니다.

      FileNumber = FreeFile                 ' 사용하지 않은 파일 번호를 가져옵니다.

      Open "TEST" & MyIndex For Output As #FileNumber    ' 파일 이름을 작성합니다.

      Write #FileNumber, "This is a sample."         ' 출력합니다.

      Close #FileNumber  ' 파일을 닫습니다.

Next MyIndex