Set iTunes=CreateObject("iTunes.Application")
MsgBox iTunes.LibraryXMLPath,0,"iTunes XML Path"