J'ai trouvé une partie de code sur VBfrance qui me permet d'ouvrir un texte et de le mettre dans un buffer.
Mais apres je voudrais pouvoir le lire ligne par ligne car j'ai des info a aller rechercher...
Le probléme est que le fichier existe et il est rempli mais que la valeur de "TStreamText.AtEndOfLine " est toujour a true ...
et que je ne peut donc pas exploité mon buffer
Mon but final est d'exploiter un fichier TXT comme une base de donnée afin de le rendre indépendant de tout systeme de base de données...
Mais je ne suis pas sur que le textstream soit une bonne solution ?
Dim Chemin As String, Fichier As String, strTmp As String
Chemin = "C:\EAViewerImg\frame\DBParamVisio\"
Fichier = "param.txt"
Dim VarBuffer As String
' Création de l'objet FSO
Dim ObjetText As New FileSystemObject
' Variable type fichier
Dim Fil As File
' Variable TextStream du FSO
Dim TStreamText As TextStream
Set ObjetText = CreateObject("Scripting.FileSystemObject")
ObjetText.OpenTextFile (Chemin + Fichier)
Set Fil = ObjetText.GetFile(Chemin + Fichier)
Set TStreamText = Fil.OpenAsTextStream(ForReading)
' Copie la totalité du fichier dans un string (retour chariot et saut de ligne compris)
VarBuffer = TStreamText.ReadAll
Do While TStreamText.AtEndOfLine <> True
retstring = TStreamText.Read(1)
Loop
TStreamText.Close
' Ferme le fichier
TStreamText.Close
Kuss