Bonjour à tous,
 
Je suis débutant 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

Bonjour,
 
Comment se nomment tes autres fichiers ?

ben justement c'est aléatoire, je ne connais pas les noms de fichiers txt à traiters...je souhaiterai trouver l'équivalent de ("C:\*.txt", ForReading)  
("C:\*.txt", ForWriting) pour que la modif se fassent dans tt les fichiers txt de la racine de C:  
 
merci de ton aide

Re,
 
Une piste :
 
   Set fso = CreateObject("Scripting.FileSystemObject" )
   'récupérer le dossier concerné
   Set dossier = fso.GetFolder("C:\" )
   For Each fichier In dossier.Files
      If Right(fichier, 3) = "txt" then
         ' Ici tu fais tes traitements
      end if
   Next
 

 
 
Re,
 
j'ai bien pris note de ta réponse mais j'ai essayé de le placer comme j'ai pu et ca ne fonctionne toujours pas...comment je récupère le dossier concerné? peux tu me faire un exemple stp?
 
Merci d'avance.

Cherche avec un Input ou l'utilisateur rentre son répertoire.
 
après tu fais ton traitement.