附註: 如果 Microsoft Jet Expression Service 在沙箱模式中執行,會停用本主題中所述的函數、方法、物件或屬性,以免評估可能不安全的表達式。 如需沙盒模式的詳細資訊,請在 [說明] 中搜尋「沙盒模式」。
傳回指定已開啟檔案中目前讀/寫位置的Long。
語法
Loc ( 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.