Problème d'équivalence VB6 -> VB.NET

Bonjour,
Existe t'il une fonction sous VB.NET similaire à la fonction "Loc(filenumber)" de VB6 qui permet d'indiquer la position de lecture/écriture courante dans un fichier ouvert?
Merci pour votre aide

normalement ca existe en VB.NET Public Function Loc(ByVal FileNumber As Integer) As Long Extrait de MSDN .NET 2003 Exemple Cet exemple utilise la fonction Loc pour retourner la position de lecture/écriture actuelle dans un fichier ouvert. Nous supposons que MYFILE est un fichier texte comportant quelques lignes de données exemple. Dim location As Long Dim oneLine As String Dim oneChar As Char FileOpen(1, "C:\MYFILE.TXT", OpenMode.Binary) While location < EOF(1) Input(1, oneChar) location = Loc(1) Debug.WriteLine(location & ControlChars.CrLf) End While FileClose(1) Notes du développeur sur Smart Device Cette fonction n'est pas prise en charge. Prérequis Espace de noms : Microsoft.VisualBasic Module : FileSystem Assembly : Microsoft Visual Basic .NET Runtime (dans Microsoft.VisualBasic.dll)

Ok, merci, je vais tenter cela tout de suite...

Le problème c'est que je dois ouvrir un fichier (executable) qui est déjà en utilisation, il ne veut pas s'ouvrir du coup...!

peut-etre c'est le mode d'ouverture du fichier qui pose problème essai une autre constante pour ouvrir en mode read-only

Ok, c'est bon, mon exe s'ouvre...
Par contre la ligne While location < EOF(1) me dit que location est < à EOF..
Pourquoi cela?

je pense qu'il faut tester sur Loc(1)

J'ai mis : While EOF(1) = False et cela fonctionne...
 

bien vu ;) n'oublie pas de cloturer le problème par une reponse accepter

Tout cela fonctionne.. 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 :

            

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