Slt a tous
J'ai un script qui modifie un fichier File.txt qui se trouve dans le repertoire Script
et je veux appliquer ce script sur tous les fichiers qui se trouvent dans le même répertoire
sa veut dire: les modifier tous par un seule script

voici le script que je l'utilise
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Set objFS = CreateObject("Scripting.FileSystemObject")
strFile = "C:\Documents and Settings\ABBAN\Bureau\Script\File.txt"
Set objFile = objFS.OpenTextFile(strFile)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
 
    If InStr(strLine,"AAAAA")> 0 Then
    	strLine = Replace(strLine,"AAAAA","BBBBB")
    End If 
If InStr(strLine,"CCCCC")> 0 Then
    	strLine = Replace(strLine,"CCCCC","ZZZZZ")
    End If 
    WScript.Echo strLine 
Loop