and tagged . Bookmark the .
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.
‘ VBScript to replace underscore in file name with space
‘ for each files in a folder
‘ Written by ApOgEE of http://coderstalk.blogspot.com
‘ 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
‘ echo the job is 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.