I came up with this, before you mentioned the files were numbered like that
alias sort2dir {
window -sh @filelist
var %sourcedir = $sdir(*)
write -c %sourcedir $+ _List.txt
.echo -q $findfile(%sourcedir,*,0,1,nowdir $1-)
listdone %sourcedir
}
alias nowdir {
var %currentFN = $nopath($1-)
var %currentfnLEN = $calc($len(%currentFN) - 4)
var %currentfnSTRIP = $left(%currentFN,%currentfnLEN)
var %currentDIR = $nofile($1-)
if (!$isdir(%currentDIR $+ %currentfnSTRIP)) { mkdir %currentDIR $+ %currentfnSTRIP }
.rename $1- %currentDIR $+ %currentfnSTRIP $+ \ $+ %currentFN
aline @filelist %currentDIR $+ %currentfnSTRIP $+ \ $+ %currentFN
}
alias listdone {
var %sourcedir = $1-
savebuf @filelist %sourcedir $+ _List.txt
run %sourcedir $+ _List.txt
window -c @filelist
}
you should test it in a folder with just a few files in it
I did not test it for files with spaces in the path or file name, so it might need tweaking for that.