注意
如果 Microsoft Jet 運算式服務以沙箱模式執行，則會停用本主題中所述的函數、方法、物件或屬性，這會防止評估可能不安全的運算式。 如需沙箱模式的詳細資訊，請在說明中搜尋「沙箱模式」。
傳回 Long，指定開啟檔案內目前的讀取/寫入位置。
語法
Loc (filenumber)
必要的 filenumber引數是任何有效的整數檔案編號。
註解
下列描述每個檔案存取模式的傳回值：
| 眾數 | 傳回值 |
|---|---|
| 隨機 | 最後從檔案讀取或寫入檔案的記錄的數目。 |
| 連續 | 檔案中目前的位元組位置除以 128。 不過， Loc 針對連續檔案傳回的資訊既不使用也非必要。 |
| 二進位 | 讀取或寫入的最後一個位元組的位置。 |
範例
注意
下列範例示範如何在 Visual Basic for Applications (VBA) 模組中使用此函數。 如需使用 VBA 的詳細資訊，請在 [搜尋] 旁的下拉式清單中選取 [開發人員參考]，並在 [搜尋] 方塊中輸入一個或多個字詞。
此範例使用 Loc 函數傳回開啟檔案中目前的讀取/寫入位置。 此範例假設這是一個 TESTFILE 包含幾行範例資料的文字檔。
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.