Pour creer un fichier texte et ecrire dedans

Contenu du snippet

Ce script créer un fichier texte et écris dedans

Source / Exemple :


'Pour creer le fichier texte
Set FSys = CreateObject("Scripting.FileSystemObject") 
Set MonFic = FSys.CreateTextFile("c:\windows\bureau\fichier.txt") 
With MonFic 'Pour écrire dans le fichier texte
.writeLine "Ecrivez la première ligne" 'Mettre write pour ne pas sauter à la ligne
.writeLine "Ecrivez la deuxième ligne"
.writeLine "Ecrivez la troisième ligne, etc..."
End With
Msg = "Écriture réussie dans fichier.txt"
MsgBox(Msg)

A voir également