Coder’s Talk: VBScript to Replace Underscores in Filename with Spaces for All Files in a Folder
Script to rename all files in a directory… to e.g. replace underscores with spaces… I altered to do the reverse.
tags: no_tag
‘======================================================== ‘ VBScript to replace underscore in file name with space ‘ for each files in a folder ‘ Written by ApOgEE of http://coderstalk.blogspot.com ‘======================================================== Dim sName Dim fso Dim fol
‘ create the filesystem object Set fso = WScript.CreateObject(“Scripting.FileSystemObject”)
‘ get current folder Set fol = fso.GetFolder(“.”)
‘ go thru each files in the folder For Each fil In fol.Files ‘ check if the file name contains underscore If InStr(1, fil.Name, “”) <> 0 Then ‘ replace underscore with space sName = Replace(fil.Name, “”, ” “) ‘ rename the file fil.Name = sName End If Next
‘ echo the job is completed WScript.Echo “Completed!”
Worked like a charm. I altered it to do the reverse. – post by ideadude
Posted from Diigo. The rest of my favorite links are here.