Modif de plusieurs fichiers txt 2 (la précédente réponse à mon message ne s'affi

Question

Je repose donc ma question car l'on m'as répondu mais je ne peux pas lire la réponse...

Je suis débutante en vb et j'aimerai savoir si il est possible d'appliquer ce script sur plusierus fichiers txt en même temps, car il le .vbs ne s'applique que sur le 123.txt (exemple *.txt)


-------------------------------------
Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\123.txt", ForReading)

strText = objFile.ReadAll
objFile.Close

strNewText = Replace(strText, "28", "30")
strNewText = Replace(strNewText, "56", "60")


Set objFile = objFSO.OpenTextFile("C:\123.txt", ForWriting)
objFile.WriteLine strNewText
objFile.Close

------------------------------------

Merci beaucoup de votre aide, je serai comblée si quelqu'un peut m'aider.

ou boubou_petrakovitz@hotmail.com

katsankat · Answer

http://www.vbfrance.com/forum.v2.aspx?ID=648707

Modif de plusieurs fichiers txt 2 (la précédente réponse à mon message ne s'affi

1 réponse

Discussions similaires