Lecture de fichier

Bonjour à tous
Je suis à la recherche d'instruction ou de fonction qui me permettrait de lire caractère par caractère un fichier ouvert avec "Open Filename for Random".
Exemple pour le contenu d'un fichier qui pourait être ceci : "Il était une fois"
je voudrais lire :
I
l

é
t
a
i
t
etc.....
Est-ce quelqu'un aurait une solution sous VB 6.0 ???
Merci d'avance
@+
Dji-Hell

Essayes ceci, mais avec Binary hein pas random sinon ça ne fonctionnera pas!

Dim sChar As String * 1, sLen As Long, x As Long
Open "c:\FBSL.txt" For Binary As #1
    sLen = LOF(1): x = 1
    While sLen
        Get #1, x, sChar: MsgBox sChar
        sLen = sLen - 1
        x = x + 1
    Wend
Close #1

Gérôme GUILLEMIN
Auteur du langage FBSL

salut,

for i=1 to len(buffer) <-- tout le fichier, carac par carac
mid$(buffer,i,1) <---- un seul carac positionné. nb : attention au vbcrlf

utilise ton aide VB, le moteur de recherche et codyx.org pour plus d'infos
++

---

Prenez un instant pour répondre à ce sondage svp