The story of last Komunis Malaya...

Huh,

Today I'm gonna share a script write in VBScript. This VBScript really important for the mp3 maniac to replace all the underscore with the space in the mp3 filename only for a click. Huh sound intresting, yeah.. this will help you shorten the time to rename all of them.

example: Raihan-Niat_puasa.mp3 <--- contain "_"

For me that underscore really annoy me.. so I wrote a simple VBScript to solve my problem..

'========================================================
' VBScript to replace underscore in file name with space
' for each files in a folder
' Written by Kurt Komunis
' http://kurt.thekomunis.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 "Ok boss, dah siap!"