04/04/2016, 03:24
|
| | | Fecha de Ingreso: febrero-2008
Mensajes: 5
Antigüedad: 17 años, 8 meses Puntos: 0 | |
| Eliminar caracteres especiales
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. |