Remarque
La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivé si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Renvoie un Long spécifiant la position actuelle en lecture/écriture dans un fichier ouvert.
Syntaxe
Loc(filenumber)
L’argument filenumberrequis est n’importe quel numéro de fichier entier valide.
Remarques
La section suivante décrit la valeur de retour pour chaque mode d’accès aux fichiers :
| Mode | Valeur renvoyée |
|---|---|
| Aléatoire | Numéro du dernier enregistrement lu ou écrit dans le fichier. |
| séquentiel | Position actuelle de l’octet dans le fichier divisée par 128. Cependant, les informations renvoyées par Loc pour les fichiers séquentiels ne sont ni utilisées ni requises. |
| Binaire | Position du dernier octet lu ou écrit. |
Exemple
Remarque
Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence développeur dans la liste déroulante en regard de Rechercher , puis entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction Loc pour renvoyer la position actuelle en lecture/écriture dans un fichier ouvert. Cet exemple suppose qu’il s’agit d’un TESTFILE fichier texte avec quelques lignes d’exemples de données.
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.