Function GetFileContent(ByVal sPathFile As String) As List(Of String)
Dim slRet As New List(Of String)
Dim saLines() As String
'si le fichier existe, on le lit au complet
If System.IO.File.Exists(sPathFile) Then
'on découpe d'après tant VBCR que VBLF
saLines = System.IO.File.ReadAllText(sPathFile).Split(Environment.NewLine.ToCharArray)
For Each sLine As String In saLines
'puis on retourne uniquement les lignes non vides
If sLine.Length > 0 Then slRet.Add(sLine)
Next
End If
Erase saLines
Return slRet
End Function