Hola,
Tengo un pequeño script que he encontrado navegando que me borra caracteres especiales dentro de un txt.
Me gustaría saber si alguien puede ayudarme a generar este mismo Script pero que recorra toda la carpeta en busca de TXT y fuera borrando los caracteres especiales de todos ellos.
Adjunto código:
Set FSO = CreateObject("Scripting.FileSystemObject")
OldTextFile = ".\test.txt"
NewTextFile = ".\testsinbarra.txt"
ReplaceFrom = "/"
ReplaceTo = ""
FSO.CreateTextFile(NewTextFile, 2). _
Write(Replace(FSO.OpenTextFile(OldTextFile, 1).ReadAll(), _
ReplaceFrom, ReplaceTo, 1, -1, vbTextCompare))
Un Saludo y gracias de antemano.
