1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Dim Position, Position2, Texte, objFSO, objFile
Const ForReading = 1
Const ForWriting = 2
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objFile = objFSO.OpenTextFile("C:\bvsys\TurnoutView3.7.2\Parameter\Directories.var", ForReading)
' Tant que fichier n'est pas terminé
While Not objFile.AtEndOfStream
' Lire une ligne
Texte = objFile.ReadLine
' Recherche la position de caractère [W:\SIM09\]
Position = InStr(1, Texte, "W:\SIM09\", 1)
' Capture le texte 1 caractère plus loin
Texte = Mid(Texte,(Position + 1))
Position2 = InStrRev(1, Texte, "\", 1)
Texte = Mid(Texte,1, (Len(Texte)-Position2))
strNewText = Replace(strText, Texte, Date)
Wend
objFile.Close
Set objFile = objFSO.OpenTextFile("C:\bvsys\TurnoutView3.7.2\Parameter\Directories.var", ForWriting)
objFile.WriteLine strNewText
objFile.Close
msgbox("Le fichier Directories a été modifié.") |
Partager