注意: 如果 Microsoft Jet Expression Service 在沙盒模式下运行，则禁用本主题中所述的函数、方法、对象或属性，这会阻止评估可能不安全的表达式。 有关沙盒模式的详细信息，请搜索"帮助"中的"沙盒模式"。
返回一个 Long 值，指定打开的文件中当前的读/写位置。
语法
Loc ( filenumber )
所需的 filenumber参数 是任何有效的整数 文件编号 。
备注
下面描述了每个文件访问模式的返回值：
|
Mode |
返回值 |
|
随机 |
从文件读取或写入文件的最后一条记录数。 |
|
顺序 |
文件中当前的字节位置除以 128。 但是 ，Loc 为顺序文件返回的信息既不使用也不是必需的。 |
|
二进制 |
最后一个字节读取或写入的位置。 |
示例
注意: 以下示例演示了在 VBA Visual Basic for Applications (模块) 函数。 有关使用 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.