참고: Microsoft Jet Expression Service가 샌드박스 모드에서 실행되는 경우 이 항목에 설명된 함수, 메서드, 개체 또는 속성은 사용하지 않도록 설정되어 안전하지 않은 식의 평가를 방지합니다. 샌드박스 모드에 대한 자세한 내용은 도움말에서 "샌드박스 모드"를 검색합니다.
Open 문을 사용하여 여는 파일 내에서 현재 읽기/쓰기 위치를 지정하는 Long을 반환합니다.
구문
Seek(filenumber)
필수 파일인수 은 유효한 을 포함하는 정수 파일 번호.
주의
Seek는 1에서 2,147,483,647 사이의 값을 반환합니다(2^31 – 1에 해당), 포함.
다음에서는 각 파일 액세스 모드의 반환 값을 설명합니다.
|
MODE |
반환 값 |
|
임의 |
다음 레코드를 읽거나 기록한 수 |
|
이진,
|
다음 작업이 수행되는 Byte 위치입니다. 파일의 첫 번째 byte는 위치 1, 두 번째 byte는 위치 2 등입니다. |
예제
참고: VBA(Visual Basic for Applications) 모듈에서 이 함수를 사용하는 경우를 예로 들어 보겠습니다. VBA 사용에 대해 자세히 알아보려면 검색 옆의 드롭다운 목록에서 개발자 참고를 선택하고 검색 상자에 검색어를 하나 이상 입력하세요.
이 예제에서는 Seek 함수를 사용하여 현재 파일 위치를 반환합니다. 이 예제에서는 TESTFILE 에 대한 사용자 정의 형식의 레코드를 포함하는 파일로 Record.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
임의 모드에서 열리면 Seek에서 다음 레코드의 수를 반환합니다.
Dim MyRecord As Record ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.
임의 모드가 다른 모드에서 열리면 Seek에서 다음 작업이 수행되는 byte 위치를 반환합니다. TESTFILE 줄이 포함된 파일로 가정합니다.
Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.
