troubleshooting Question

Counting consecutive underscores and reducing to 1 in VBS (in a file name)

Avatar of tommy777
tommy777 asked on
Microsoft Development
4 Comments1 Solution245 ViewsLast Modified:
In the code below, I have two underscores being replace by one underscore.  I would like to have any number of consecutive underscores replaced by one underscore.  So if there are 6 consecutive underscores in a file name, running the script will reduce that to one.

Set objFSO = CreateObject("Scripting.FileSystemObject")
nCount = 0
currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))
set rootFolder = objFSO.GetFolder(currentDirectory)
renameFiles rootfolder
enumFolders rootFolder
wscript.echo nCount & " Files have been renamed."
function enumFolders(folder)
   for each sFolder in folder.subfolders
      renameFiles sFolder
      enumFolders sFolder
end function
function renameFiles(nFolder)
   for each oFile in nFolder.files  
 if instr(,"__") > 0 then
         newFileName = replace(,"__","_")  
         newFilePath = left(oFile.path,len(oFile.path) - len( & newFileName
         objFSO.MoveFile oFile.path, newFilePath
nCount = nCount+1    
end if
end function
Join our community to see this answer!
Unlock 1 Answer and 4 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 4 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros