Loc 函式

發行項
08/21/2008

更新：2007 年 11 月

傳回表示開啟檔案中目前讀取/寫入位置的 Long 值。

Public Function Loc(ByVal FileNumber As Integer) As Long

參數

FileNumber
必要項。任何有效的 Integer 檔案號碼。

例外狀況

例外狀況類型	錯誤代碼	條件
IOException	52	FileNumber 不存在。
IOException	54	檔案模式無效。

如果將使用非結構化錯誤處理的 Visual Basic 6.0 應用程式升級，請參閱「錯誤代碼」資料行 (您可以將錯誤代碼與 Number 屬性 (Err 物件) 比對)。但是，請盡可能考慮以 Visual Basic 的結構化例外處理概觀取代這類錯誤控制項。

備註

Loc 函式是以零起始。使用它來取得檔案中的第一個位元組將會傳回 0。

提供 Loc 函式以取得回溯相容性，但可能會影響效能。對於非舊版應用程式，My.Computer.FileSystem 物件會提供更好的效能。如需詳細資訊，請參閱使用 Visual Basic 存取檔案。

以下說明每個檔案存取模式的傳回值：

模式	傳回值
Random	自檔案讀取或寫入檔案的最後一筆資料錄編號。
Sequential	檔案中目前的位元組位置除以 128；但是，不會使用也不需要以 Loc 傳回的循序檔資訊。
Binary	讀取或寫入的最後位元組位置。

範例

這個範例使用 Loc 函式傳回開啟檔案的目前讀取/寫入位置。這個範例會假設 MyFile 為內含數行範例資料的文字檔。

Dim location As Long
Dim oneChar As Char
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Binary)
While location < LOF(1)
   Input(1, oneChar)
   location = Loc(1)
   WriteLine(1, location & ControlChars.CrLf)
End While
FileClose(1)