Fichier texte vide

Salut Fabien,

Si tu veux tester un fichier de 0 ko :

Private Function IsFileEmpty(ByVal PathFile As String) As Boolean
Dim monStreamReader As IO.StreamReader
Dim ligne As String
Dim result As Boolean = True

Try
monStreamReader = New IO.StreamReader(PathFile)
Do
ligne = monStreamReader.ReadLine
If ligne.Length <> 0 Then
result = False
Exit Do
End If
Loop Until ligne Is Nothing
Catch ex As Exception
'
Finally
monStreamReader.Close()
monStreamReader = Nothing
ligne = Nothing
End Try

Return result
End Function

sinon si tu considères qu'un fichier vide est un fichier qui continent que
des espaces, des sauts de ligne.... en gros rien en visuel lorsque tu ouvres
le fichier dans le bloc notes, remplace " If ligne.Length <> 0 Then " par "
If ligne.Trim.Length <> 0 Then "

A+

--
fmillox


"Fabien Gouverneur" a écrit :

Bonjour à tous,

Je cherche à savoir comment je peux vérifier qu'un fichier toto.xxx présent
sur mon disque, est présent mais ne contient rien ?
Je travaille avec le Framework 1.1


Merci de votre aide

Re-bonjour,

Petit oubli :
Dans le try cath lorsqu'il y a une erreur detecté, à la place de ' , il faut
mettre result = nothing.

A+

--
fmillox


"Millox Frédéric" a écrit :

Salut Fabien,

Si tu veux tester un fichier de 0 ko :

Private Function IsFileEmpty(ByVal PathFile As String) As Boolean
Dim monStreamReader As IO.StreamReader
Dim ligne As String
Dim result As Boolean = True

Try
monStreamReader = New IO.StreamReader(PathFile)
Do
ligne = monStreamReader.ReadLine
If ligne.Length <> 0 Then
result = False
Exit Do
End If
Loop Until ligne Is Nothing
Catch ex As Exception
'
Finally
monStreamReader.Close()
monStreamReader = Nothing
ligne = Nothing
End Try

Return result
End Function

sinon si tu considères qu'un fichier vide est un fichier qui continent que
des espaces, des sauts de ligne.... en gros rien en visuel lorsque tu ouvres
le fichier dans le bloc notes, remplace " If ligne.Length <> 0 Then " par "
If ligne.Trim.Length <> 0 Then "

A+

--
fmillox


"Fabien Gouverneur" a écrit :

> Bonjour à tous,
>
> Je cherche à savoir comment je peux vérifier qu'un fichier toto.xxx présent
> sur mon disque, est présent mais ne contient rien ?
> Je travaille avec le Framework 1.1
>
>
> Merci de votre aide
>
>
>