Não entendi bem. Confirme se é isto que achei:
O script vai continuar fazendo a mesma coisa: Trocar uma palavra por outra.
A diferença é que ao invés de fazer isto para apenas um arquivo (C:\scripts\test.txt) ele fará isto para todos os arquivos de uma determinada pasta?
No exemplo abaixo eu leio apenas os arquivos de uma determinada pasta (não entro nos subdiretórios, se quiser veja o link que coloquei no final), no exemplo existe um filtro para que somente os arquivos com extensão HTML sofram a troca de strings
Const FOR_READING = 1
Const FOR_WRITING = 2
objStartFolder = "C:\Temp"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
If UCase(objFSO.GetExtensionName(objFile.name)) = "HTML" Then
Wscript.Echo objFile.path
Troca_Palavra objFile.path, "oi","Tchau"
End If
Next
Sub Troca_Palavra(strArquivo, strVelha,StrNova)
strFileName = strArquivo
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objTS = objFS.OpenTextFile(strFileName, FOR_READING)
strContents = objTS.ReadAll
objTS.Close
Set objTS = objFS.OpenTextFile(strFileName, FOR_WRITING)
strContents = Replace(strContents, strVelha, StrNova)
objTS.WriteLine strContents
objTS.close
end sub
Ref.:
How Can I Get a List of All the Files in a Folder and Its Subfolders?
http://blogs.technet.com/b/heyscriptingguy/archive/2004/10/20/how-can-i-get-a-list-of-all-the-files-in-a-folder-and-its-subfolders.aspx
Fábio de Paula Junior
