********************************************************* **********************************************************CODE ********************************************************** select 0 create cursor qsongs (name varchar(100),folder varchar(100),duration b(2)) private poMediaPlayer poMediaPlayer = CreateObject("WMPlayer.OCX") process(GETDIR("", "Audio", "Select", 64)) release poMediaPlayer ****************************** ******************************Process ****************************** procedure process lparameters tcFolderName local laDir[1] local ii adir(laDir,addbs(tcFolderName) + '*.*','D') for ii = 1 to alen(laDir,1) if laDir[m.ii,1] == '.' or laDir[m.ii,1] == '..' loop endif if atc('D',laDir[m.ii,5]) > 0 process(addbs(tcFolderName) + laDir[m.ii,1]) endif if inlist(justext(laDir[m.ii,1]),'WMA','MP3','FLAC') processFile(tcFolderName, laDir[m.ii,1]) endif next endproc ****************************** ******************************ProcessFile ****************************** procedure processFile lparameters tcFolderName, tcFileName local lnSeconds Items = poMediaPlayer.MediaCollection m.Item = m.Items.Add(addbs(tcFolderName) + tcFileName) ? m.Item.getItemInfo("Title"), "by", m.Item.getItemInfo("Artist") lnSeconds = m.Item.Duration ?'****', m.tcFileName, lnSeconds insert into qsongs (name, folder, duration) values (tcFileName, tcFolderName, lnSeconds) endproc