Public Shared Function OuvrirFichierTexte(ByVal Chemin As String) As String Try ' Vous pouvez changer/retirer l'encodage Dim FichierStreamRead As New System.IO.StreamReader(Chemin, System.Text.Encoding.GetEncoding("iso-8859-1")) Dim ContenuFichier As String = FichierStreamRead.ReadToEnd() FichierStreamRead.Close() FichierStreamRead = Nothing Return ContenuFichier Catch ex As Exception Return "" End Try End Function
public string ReadAllText(string path, Encoding encoding) { string text = string.Empty; try { using (StreamReader sr = new StreamReader(path, encoding)) { text = sr.ReadToEnd(); } } catch { } return text; }
'Utilisation de My; A integrer dans le corps de la methode appelante Dim FileContent as String = My.Computer.FileSystem.ReadAllText(FileName, Encoding)
new ActiveXObject("Scripting.FileSystemObject").OpenextFile("chemin", 1, false).ReadAll();
Function ReadDataFromFile(sPathFile) ' reader Dim oFSO Set oFSO = CreateObject("Scripting.fileSystemObject") ' fichier Dim oFile Set oFile = oFSO.GetFile(sPathFile) ' stream Dim oStream Set oStream = oFile.OpenAsTextStream(ForReading) ' retour ReadDataFromFile = oStream.ReadAll ' nettoyage oStream.Close Set oStream = Nothing Set oFile = Nothing Set oFSO = Nothing End Function