Lock, Unlock, fonctions

Article
09/12/2008

Mise à jour : novembre 2007

Contrôle l'accès par d'autres processus à tout ou partie d'un fichier ouvert à l'aide de la fonction Open.

La fonctionnalité My permet une meilleure productivité et de meilleures performances dans les opérations d'E/S sur fichier que Lock et Unlock. Pour plus d'informations, consultez My.Computer.FileSystem, objet.

Public Overloads Sub Lock(ByVal FileNumber As Integer)
' -or-
Public Overloads Sub Unlock(ByVal FileNumber As Integer)
' -or-
Public Overloads Sub Lock(_
   ByVal FileNumber As Integer, _ 
   ByVal Record As Long _
)
' -or-
Public Overloads Sub Unlock( _
   ByVal FileNumber As Integer, _ 
   ByVal Record As Long _
)
' -or-
Public Overloads Sub Lock( _
   ByVal FileNumber As Integer, _ 
   ByVal FromRecord As Long, _ 
   ByVal ToRecord As Long _
)
' -or-
Public Overloads Sub Unlock( _
   ByVal FileNumber As Integer, _
   ByVal FromRecord As Long, _
   ByVal ToRecord As Long _
)

Paramètres

FileNumber
Requis. Tout numéro de fichier valide.
Record
Facultatif. Numéro du seul enregistrement ou octet à verrouiller ou à déverrouiller
FromRecord
Facultatif. Numéro du premier enregistrement ou octet à verrouiller ou à déverrouiller.
ToRecord
Facultatif. Numéro du dernier enregistrement ou octet à verrouiller ou à déverrouiller.

Exceptions

Type d'exception	Numéro de l'erreur	Condition
IOException	52	FileNumber n'existe pas.
IOException	54	Le mode de fichier est non valide.

Consultez la colonne « Numéro d'erreur » si vous mettez à niveau des applications Visual Basic 6.0 qui utilisent la gestion des erreurs non structurée. (Vous pouvez comparer le numéro d'erreur par rapport à Number, propriété (objet Err).) Toutefois, lorsque cela est possible, vous devez envisager de remplacer un tel contrôle d'erreur par Vue d'ensemble de la gestion structurée des exceptions pour Visual Basic.

Notes

Les fonctions Lock et Unlock sont utilisées dans des environnements où plusieurs processus peuvent avoir besoin d'accéder au même fichier.

Les fonctions Lock et Unlock sont toujours utilisées par paires. Les arguments des fonctions Lock et Unlock doivent être totalement identiques.

Si Record, FromRecord ou ToRecord ne sont pas indiqués, le verrouillage portera sur la totalité du fichier. Si Record seul est spécifié, seul l'enregistrement sera verrouillé/déverrouillé.

Si le fichier a été ouvert en mode d'entrée ou de sortie séquentielle, Lock et Unlock s'appliquent à l'ensemble du fichier, quelle que soit la plage spécifiée par FromRecord et ToRecord.

Exemple

Cet exemple illustre l'utilisation des fonctions Lock et Unlock. Nous supposons que People.txt est un fichier contenant les enregistrements de la structure Person.

Structure Person
   Dim Name As String
   Dim ID As Integer
End Structure

Sub PutInLockedFile(ByVal index As Integer, ByVal onePerson As Person)
   Try
      FileOpen(1, "c:\people.txt", OpenMode.Binary)
      Lock(1)
      FilePut(index, onePerson)
      Unlock(1)
      FileClose(1)
   Catch
      ' Error recovery code here.
   End Try
End Sub