Forums Scripts & Popups Copy directories

alias test {
  write -c dvd.txt
  var %x = 1, %folder = $sdir=" Select a folder.. "
  while (%x <= $findfile(%mp3dir,*.nfo,0)) {
    write dvd.txt $findfile(%mp3dir,*.nfo,%x)
    inc %x
  }
}

alias copydirs {
  var %f = f $+ $ticks, %total, %folder = $$sdir($mircdir,Select a folder)
  .fopen -o %f dvd.txt
  if ($ferr) goto error
  %total = $finddir(%folder,*DVD*,0,.fwrite -n %f $gettok($1-,-1,92))
  echo -ac info * /copydirs: %total directories written to file 
  :error
  if ($fopen(%f)) .fclose %f
}