Seek

---

構文

Seek(filenumber)

引数filenumberには、対象となるファイルのファイル番号を指定します。

解説

開いているファイルの、現在の読み込み位置または書き込み位置を示す長整数型の値を返します。

サンプル

次の例は、C:\Autoexec.batをバイナリモードで開き10バイト読み込んだ直後の読み込み位置を表示します。

Sub Sample()
    Dim a As String
    Open "C:\Autoexec.bat" For Binary As #1
        a = Input(10, 1)
        MsgBox Seek(1)
    Close #1
End Sub