Public Shared Function RecupFichierTexteInternet(ByVal UrlFichier As String, ByVal enc As System.Text.Encoding) As String
Dim WebClient As New System.Net.WebClient
Try
Dim WebResponse As System.IO.Stream, WebResult As String
Dim FichierDistant As String = UrlFichier
WebResponse = WebClient.OpenRead(FichierDistant)
Dim MonReader As New System.IO.StreamReader(WebResponse, enc)
WebResult = MonReader.ReadToEnd
WebClient.Dispose()
WebClient = Nothing
MonReader.Close()
MonReader = Nothing
WebResponse.Close()
WebResponse = Nothing
Return webResult
Catch ex As Exception
WebClient.Dispose()
WebClient = Nothing
Return "Erreur lors de la récupération du fichier"
End Try
End Function