Función Loc

Devuelve un tipo Long que especifica la posición de lectura/escritura actual en un archivo abierto.

Sintaxis

Loc(filenumber)

El argumentofilenumber necesario es cualquier número de archivoInteger válido.

Comentarios

A continuación se describe el valor devuelto para cada modo de acceso de archivo:

Modo	Valor devuelto
Aleatorio	Número del último registro leído del archivo o escrito en el archivo.
Secuencial	Posición de byte actual en el archivo dividido por 128. No obstante, la información devuelta por Loc para archivos secuenciales ni se usa ni se necesita.
Binario	Posición del último byte leído o escrito.

Ejemplo

En este ejemplo se usa la función Loc para devolver la posición actual de lectura/escritura en un archivo abierto. El ejemplo asume que TESTFILE es un archivo de texto con algunas líneas de datos de muestra.

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
Do While MyLocation < LOF(1)    ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)    ' Read character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.

Vea también

• Funciones (Visual Basic para Aplicaciones)

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.