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