Problema com um VB Script

[Charles Costa]

Ola...

Eu preciso que esse script abra um INI file, leia as entradas e substitua elas, mas o script apenas subtitui o primeiro.

Abaixo o script:

On Error Resume Next

Const ForReading = 1

Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile("C:\APL\FOS10\PRD\pic.ini", ForReading)

strText = objFile.ReadAll

objFile.Close

strNewText = Replace(strText, "C:\APL\FOS\PIC", "C:\APL\FOS10\PRD\PIC")

strNewText = Replace(strText, "C:\APL\fos\PIC", "C:\APL\FOS10\PRD\PIC")

strNewText = Replace(strText, "C:\APL\FOS\pic", "C:\APL\FOS10\PRD\PIC")

strNewText = Replace(strText, "C:\APL\fos\pic", "C:\APL\FOS10\PRD\PIC")

strNewText = Replace(strText, "C:\apl\FOS\PIC", "C:\APL\FOS10\PRD\PIC")

strNewText = Replace(strText, "C:\apl\fos\PIC", "C:\APL\FOS10\PRD\PIC")

strNewText = Replace(strText, "C:\apl\FOS\pic", "C:\APL\FOS10\PRD\PIC")

strNewText = Replace(strText, "C:\apl\fos\pic", "C:\APL\FOS10\PRD\PIC")

Set objFile = objFSO.OpenTextFile("C:\APL\FOS10\PRD\pic.ini", ForWriting)

objFile.WriteLine strNewText

objFile.Close

Obrigado..

[kuroi]

a partir da segunda linha usa o replace no proprio strNewText. tipo assim:

strNewText = Replace(strText, "C:\APL\FOS\PIC", "C:\APL\FOS10\PRD\PIC")
strNewText = Replace(strNewText, "C:\APL\fos\PIC", "C:\APL\FOS10\PRD\PIC")
strNewText = Replace(strNewText, "C:\APL\FOS\pic", "C:\APL\FOS10\PRD\PIC")
....[/code]
e assim por diante.

[Charles Costa]

Po valeu cara...