mp3 list creater

By CodeProphet on Apr 03, 2007

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
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.