songname(songername).mp3/wma -> (songername)songname.mp3/wma
dim path,str,name,songpath=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),")"......
阅读全文