There is an installer available to download from my website. Unfortunately the code file is too large to post!


Function gettime(sec)
Dim min
min = 0
sec = Int(sec)
Do While sec > 59
sec = sec - 60
min = min + 1
Loop
If sec < 10 Then
sec = 0&sec
End If
gettime = min&":"&sec
End FunctionAlbumMask = "<Name> - <Artist> (<Year>) <Rating>"
TrackMask = "<Track#>. <Title> - <Artist> (<Length>) <Rating>"Users browsing this forum: MSNbot Media, treponem and 9 guests