sfv mirc script

alias makesfv {
  set %crcdir $sdir(z:\, "Select a folder to create an sfv for...")

  set %crci 1
  set %crctotal $findfile(%crcdir, *.*, 0)
  set %sfvfilename %crcdir $+ $gettok(%crcdir, $numtok(%crcdir, 92), 92) $+ .sfv

  while (%crci <= %crctotal) {
    set %crccurfile $findfile(%crcdir, *.*, %crci)

    set %filenamecrc $left($right(%crccurfile, 13), 8)

    write %sfvfilename $nopath(%crccurfile) %filenamecrc

    echo . %crci %crccurfile %filenamecrc

    inc %crci 1
  }

  echo sfv creation complete!! LOL
}