Créer et écrire dans un fichier.txt

**Furius** · 11/12/2005, 14h25

Bonjour à tous

Je voudrai créer un script VBS qui créer un fichier.txt et écrit à l’intérieur, quelqu’un pourrait-il m’aider ?

**SfJ5Rpw8** · 11/12/2005, 14h55

tiens en utilisant filesystemobject...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Const ForReading = 1, ForWriting = 2
  Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)
   f.write("Salut")

**Furius** · 11/12/2005, 15h05

Merci beacoup bbil

Et comment doije faire pour écrir a la ligne ?

**SfJ5Rpw8** · 11/12/2005, 15h33

avec fso ..: ( pour VBS)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   f.writeline("Salut")
   f.writeline("tous vas bien ?")

**Furius** · 11/12/2005, 15h42

Merci encore bbil

Mais il reste un truc: Le fichier existant et écraser par le script, j'aurai besoin aussi de se script pour ajouter des lignes dans des fichiers déjà existant sans les écraser, pouriez vous m'aider ?

**SfJ5Rpw8** · 11/12/2005, 15h44

de mémoire je crois que la constante ForAppend est = 3...
[edit]... non finalement c'est 8

**Furius** · 11/12/2005, 15h52

Efectivement c'été bien 8.

Anvigelpro votre scripr ne fonctionne pas chez moi, celui de bbil est OK, merci quand même

**Arthur Glt** · 15/05/2016, 19h11

Bonjour, je suis nouveau sur le forum, j'ai eu un problème avec cette technique, elle fonctionne très bien mais, quand j'ai voulu rentrer la commande :
msgbox "exemple de texte"
Cela ne fonctionner pas car il y avait des guillemets et l'ordinateur croyait que c'était la fin de mon message après msgbox.

Quelqu'un aurait une méthode pour éviter ça ? Ou une alternative à cette commande

Merci d'avance.

**l_autodidacte** · 15/05/2016, 19h56

L'ordinateur ne croit rien, il exécute ce qu'on lui demande.
Poste la partie du code causant le problème pour qu'on puisse t'aider

**Arthur Glt** · 15/05/2016, 20h05

Voila un script qui illustre mon problème :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Const ForReading = 1, ForWriting = 2
  Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("exemple.vbs", ForWriting,true)
   f.write("msgbox "Hello" ")

Et mon problème se trouve dans la dernière ligne, c'est à cause des doubles guillemets.