Je lis les info contenues dans un fichier mais après quelques tours dans la boucle, la ligne : Input(1, oneChar) plante (elle génère une exception).
Voici le message de l'exception : " L'entrée dépasse la fin du fichier".

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Dim num = FreeFile()
 
FileOpen(num, NomFichier, OpenMode.Binary, OpenAccess.Read)
 
longueur_fich = LOF(num_fich)
 
Do While position + 512 < longueur_fich
 
Input(num_fich, Chaine)
 
position = Loc(num_fich)
 
For j = 1 To Len(Chaine) Step 2
 
check = (check + (j * 1 + Asc(Mid$(Chaine, j, 1)))) 
 
Next j
 
VisuVersion.Text = "en cours ... " & Format$(Loc(num_fich) / longueur_fich, "0 %")
 
Loop