usage : /mp3list directory or /mp3list and then choose your mp3 directory
e.g: /mp3list c:\mp3
mp3list {
if ($exists(mp3lizt.txt)) { remove mp3lizt.txt }
if ($1) { set %m $1- }
else { set %m $sdir("choose your mp3 directory") }
set %total $findfile(%m,*.mp3,0)
unset %go
while (%total) {
inc %go
set %mp3 $findfile(%m,*.mp3,%go)
if ($nofile(%mp3) = %folder) {
inc %lewp
write mp3lizt.txt $chr(32) $chr(32) %lewp $+ . $nopath(%mp3) ... Length: $duration($calc($mp3(%mp3).length / 1000)) ... Size: $bytes($file(%mp3).size,m) mb
}
if ($nofile(%mp3) != %folder) {
set %folder $nofile(%mp3)
if ($lines(mp3lizt.txt) > 1) { .write -i mp3lizt.txt }
.write mp3lizt.txt $str(ى,100)
.write mp3lizt.txt $+($chr(91),%folder,$chr(93))
.write mp3lizt.txt $str(لا,100)
set %lewp 1
write mp3lizt.txt $chr(32) $chr(32) %lewp $+ . $nopath(%mp3) ... Length: $duration($calc($mp3(%mp3).length / 1000)) ... Size: $bytes($file(%mp3).size,m) mb
}
dec %total
}
set -u1 %tsize $findfile(%m,*.mp3,0,set -u1 %t.size $calc(%t.size + $file($1-).size))
.write -i mp3lizt.txt
set -u1 %blah * total mp3's: $findfile(%m,*.mp3,0) * total size: $bytes(%t.size,mg).suf *
.write mp3lizt.txt $str(*,$len(%blah))
.write mp3lizt.txt %blah
.write mp3lizt.txt $str(*,$len(%blah))
run mp3lizt.txt
}