Réponse acceptée !
Re,
Voici le code :
Option Explicit
Type Record ' Désigne un type défini par l'utilisateur.
ID As Integer
Name As String * 20
End Type
Private Sub Form_Load()
Dim MyRecord As Record, Position ' Déclare les variables.
' Ouvre l'exemple de fichier en accès aléatoire.
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
' Lit l'exemple de fichier à l'aide de l'instruction Get.
Position = 3 ' Définit le numéro d'enregistrement.
Get #1, Position, MyRecord ' Lit le troisième enregistrement.
Close #1 ' Ferme le fichier.
End Sub
A+
Exploreur
Linux a un noyau, Windows un pépin