[Magi-X]

Salut, j'espere qu'il y a un ptit douer en vb ici, car j'ai un petit probleme assez bizare ..
Bon pour l'ecole jdois faire un bete petit programme qui ecris vers un fichier, lie dun fichier et effacer, enfin le basic quoi!

Donc j'ai ete voir sur msdn comment faire cela !

J'ai trouver ce que je cherchais sauf que le code pour lire d'un fichier ne fonctionne pas ...

donc pour ecrire g fais ce code ci, et cela fonctionne tres bien

Function Create_file()
    Dim fso, txtfile
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile("c:\testfile.txt", True)
    txtfile.Write ("This is a test. ") ' Write a line.
    ' Write a line with a newline character.
    txtfile.WriteLine ("Testing 1, 2, 3.")
    ' Write three newline characters to the file.
    txtfile.WriteBlankLines (3)
    txtfile.Close
End Function

mais il donne aussi un autre code, qui ecris vers un fichier et lie en meme temps et celui la il me donne une erreur :

Compile error:
User-defined type not defined

et la faute se trouve la ou g mit en rouge !

Dim fso As New FileSystemObject, txtfile, _
      fil1 As File, ts As TextStream
    fso.CreateTextFile "c:\testfile.txt", True
    MsgBox "Writing file"
    ' Write a line.
    Set fil1 = fso.GetFile("c:\testfile.txt")
    Set ts = fil1.OpenAsTextStream(ForWriting)
    ts.Write "Hello World"
    ts.Close
    ' Read the contents of the file.
    Set ts = fil1.OpenAsTextStream(ForReading)
    s = ts.ReadLine
    MsgBox s
    ts.Close

Je suis presque certain que le code est juste, vu que ca viens de msdn ... donc je dirais plus tot qu'il y a un probleme au niveau du compiler !!

Enfin ci quelquun sais m'aider ..

Merci