Bonjour à tous,

J'obtiens le message d'erreur "Espace de chaîne insuffisant" lors de la tentative de lecture d'un fichier texte volumineux (146 mo).

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Public Function ReadLargeFile(chemin As String) As String
Dim c As String
Open chemin For Binary As #1
c = Space$(LOF(1))
Get #1, , c
Close #1
ReadLargeFile = c
End Function
Pensez-vous qu'il y a une solution à ce problème ?

Merci par avance,
Cdlt,
Denis