oShell = createobject("shell.application") loDir = loShell.Namespace(lcDir) lofile = loDir.parsename(lcFile) lcArtist = loDir.GetDetailsOf(lofile,16) see http://technet.microsoft.com/en-ca/library/ee176615.aspx for the list of properties and their index number.Other way is to read last 128 bytes of the file.
lcDetails = RIGHT(FILETOSTR(YoruFile), 128) IF LEFT(lcDetails,3) == [TAG] ? "tiltle", SUBSTR(lcDetails, 4,30) ? "artist", SUBSTR(lcDetails, 34,30) ? "album" , SUBSTR(lcDetails, 64,30) ? "year" , SUBSTR(lcDetails, 94,4) ENDIF