Imports System.IO

Public Class register

Sub ecrire(ByVal nom As String)

Try
Dim SourceFile As New StreamReader("D:\Mes documents\Visual Studio 2008\Projects\EduPLAY\EduPLAY\fichier.txt") 'Stream pour la lecture
Dim ligne As String ' Variable contenant le texte de la ligne
Dim trouve As Boolean
trouve = False
Do
ligne = SourceFile.ReadLine()
trouve = SourceFile.ReadLine().Contains(nom)

' TRAITEMENT A EFFECTUER SUR LA LIGNE ICI
Loop Until ligne Is Nothing

If trouve = False Then
'ecrire
Else
If trouve = True Then
'ne rien faire
End If
End If

SourceFile.Close()

Catch ex As Exception
MsgBox("Une erreur est survenue au cours de l'accès en lecture du fichier de configuration." & vbCrLf & vbCrLf & "Veuillez vérifier l'emplacement : erreur lors de l'ouverture du fichier")
End Try

End Sub


en fait voià ce que j'obtiens

Une exception de première chance de type 'System.IO.FileNotFoundException' s'est produite dans mscorlib.dll
Une exception de première chance de type 'System.IO.IOException' s'est produite dans mscorlib.dll
Une exception de première chance de type 'System.NullReferenceException' s'est produite dans EduPLAY.exe