Hinweis: Die in diesem Thema beschriebene Funktion, Methode, Objekt oder Eigenschaft ist deaktiviert, wenn der Microsoft Jet-Ausdrucksdienst im Sandboxmodus ausgeführt wird, der die Auswertung potenziell unsicherer Ausdrücke verhindert. Weitere Informationen zum Sandboxmodus finden Sie, wenn Sie in der Hilfe nach "Sandboxmodus" suchen.
Gibt eine Zahl vom Typ "Long" zurück, mit der die aktuelle Lese-/Schreibposition innerhalb einer geöffneten Datei angegeben wird.
Syntax
Loc( Dateinummer )
Das erforderliche Argument Dateinummer ist eine Dateinummer aus einer beliebigen gültigen ganzen Zahl.
Anmerkungen
Im Folgenden wird der Rückgabewert für jeden Dateizugriffsmodus beschrieben:
|
Modus |
Rückgabewert |
|
Random |
Nummer des letzten Datensatzes, der aus der Datei gelesen oder in die Datei geschrieben wurde |
|
Sequential |
Aktuelle Byteposition in der Datei, dividiert durch 128. Allerdings werden die durch Loc für sequenzielle Dateien zurückgegebenen Informationen weder verwendet noch benötigt. |
|
Binary |
Position des letzten gelesenen oder geschriebenen Bytes |
Beispiel
Hinweis: Die folgenden Beispiele zeigen die Verwendung dieser Funktion in einem VBA-Modul (Visual Basic for Applications). Wenn Sie weitere Informationen zum Arbeiten mit VBA wünschen, wählen Sie Entwicklerreferenz in der Dropdownliste neben Suchen aus, und geben Sie einen oder mehrere Begriffe in das Suchfeld ein.
In diesem Beispiel wird die Funktion Loc verwendet, um die aktuelle Lese-/Schreibposition in einer geöffneten Datei zurückzugeben. Dabei wird vorausgesetzt, dass TESTFILE eine Textdatei mit ein paar Zeilen Beispieldaten ist.
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.
