Sub BRScriptMain() 'The startup sub.
'See MyFunctions for the custom Functions
strFilename = GetArtist(strPath) & " - " & Trim(GetAlbum(strPath)) & " - " & strFilename

End Sub 'END BRScriptMain

Function GetAlbum(strMyPath)
dim sRet
sRet = split(strMyPath, " - ")(1)
If inStr(1,sRet,"(") then
	sRet = split(sRet,"(")(0)
end if
GetAlbum = sRet
End Function

Function GetArtist(strMyPath)
dim sRet
sRet = split(strMyPath, " - ")(0)
If inStr(1,sRet,"(") then
	sRet = split(sRet,"(")(0)
end if
GetArtist = sRet
End Function