i asked for a file organizer that'd work by going folder_folder_restoffile.file

I need one to do only one folder_restoffileinfo.file

so I don't have 2 folders named from one file. here was the first code:
Code:
 
;
;
;
;
;Usage /file.organizer source folder or $file.organizer(source folder)
; Use /.file.organizer or $file.organizer to suppress outputs
; Returned values = -1 : invalid source directory
;                   0+ : processed files (does not always mean this many files were moved (see note below))
;
; NB: Due to attempts to create folders when files of the same name already exist and/or attempts to move(rename) files when the same file name 
;     already exists not all files well always be moved. This problem is unavoidable but should represent less than 2% of all files proccessed.
;
alias file.organizer {
  if (!$isdir($1-) || ($mircdir == $1-)) { if ((!$isid) && ($show)) { echo -sce info * Invalid folder specified for /file.organizer $1- * } | return -1 } 
  var %show = $iif((!$isid && $show),$true,$false), %sourcefolder = $1-, %processed = $findfile($1-,*.*,0,1,!.echo -q $subfolder.a.file(%show,%sourcefolder,$nopath($1-)))
  if ((!$isid) && ($show)) { echo -sce info * /file.organizer processed %processed file(s) in $1- * } | return %processed
}
alias -l subfolder.a.file {
  var %foldername = $iif(($pos($3,.,0)),$left($3,$calc($pos($3,.,$v1) - 1)),$3)
  !.echo -q $regsub(%foldername,/[^[:alpha:]]+/g,\\,%foldername)
  var %foldername = $gettok(%foldername,1-2,92)
  var %m = $numtok(%foldername,92), %i = 1
  while (%i <= %m) { mkdir $+(",$2,\,$gettok(%foldername,$+(1-,%i),92),") | inc %i }
  if $isdir($+($2,\,%foldername)) { $+($iif(!$1,.),rename) $+(",$2,\,$3,") $+(",$2,\,%foldername,\,$3,") }
  :error | reseterror
}
;
;
;
;
;Usage /blitz.folders target folder or $blitz.folders(target folder)
; Use /.blitz.folders or $blitz.folders to suppress outputs
; Returned values = -1    : invalid target directory
;                   0+ 0+ : value 1 is processed files (does not always mean this many files were moved (see note below))
;                           value 2 is processed folders (does not always mean this folder was erased (see note below))
;
; NB: Due to attempts to attempts to move(rename) files when the same file name already exists and/or file access errors not all files well always be moved.
;     This problem then migrates to folder erasing as folders can not be erased when files are still present.
;     This problem is unavoidable but should represent less than 5% of all files/folders proccessed.
;
alias blitz.folders {
  if (!$isdir($1-) || ($mircdir == $1-)) { if ((!$isid) && ($show)) { echo -sce info * Invalid folder specified for /blitz.folders $1- * } | return -1 } 
  var %show = $iif((!$isid && $show),$true,$false), %sourcefolder = $+($1-,$iif(($right($1-,1) != \),\)), %processed.files = $findfile($1-,*.*,0,999,!.echo -q $unsubfolder.a.file(%show,%sourcefolder,$1-))
  if ((!$isid) && ($show)) { echo -sce info * /blitz.folders processed %processed.files file(s) in $1- * }
  var %blitz.folders.hashtable = $+(blitz.folders.hashtable.,$ticks,.,$mid($rand(1000000,1999999),2)) | hfree -w %blitz.folders.hashtable
  var %processed.folders = $finddir($1-,*.*,0,999,hadd -m %blitz.folders.hashtable $+(item,$hget(%blitz.folders.hashtable,0).item) $1-), %i = %processed.folders
  while (%i) { dec %i | $remove.a.folder($hget(%blitz.folders.hashtable,$+(item,%i))) } | hfree -w %blitz.folders.hashtable
  if ((!$isid) && ($show)) { echo -sce info * /blitz.folders processed %processed.folders folder(s) in $1- * }
  return %processed.files %processed.folders
}
alias -l unsubfolder.a.file {
  if ($nofile($3) != $2) { $+($iif(!$1,.),rename) $+(",$3,") $+(",$2,$nopath($3),") }
  :error | reseterror
} 
alias -l remove.a.folder {
  rmdir $+(",$1,")
  :error | reseterror
}


anyone know how to edit it and make it only one folder (I forgot who made it here) ?