songname(songername).mp3/wma -> (songername)songname.mp3/wma
dim path,str,name,song
path=inputbox("mp3 path : ")
MsgBox(path)
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.GetFolder(path)
Set oFiles = oFolder.Files
For Each oFile In oFiles
str=oFile.name
str=replace(str,".MP3",".mp3")
str=replace(str,".WMA",".wma")
if split(str,".")(1)="mp3" or split(str,".")(1)="wma" then
song=split(str,"(")(0)
name=split(split(str,"(")(1),")")(0)
'WScript.Echo "("+name+")"+song+".mp3"
oFile.name="("+name+")"+song+".mp3"
end if
Next
Set oFolder = Nothing
Set oFso = Nothing