Прошу написать мне прогу для распределения файлов из одних папок в другие

@echo off
powershell -executionpolicy bypass -command "$operation=read-host 'Введите тип операции (copy или move)';" ^
    "while (($operation -ne 'copy') -and ($operation -ne 'move')) {$operation=read-host 'Введён неподдерживаемый тип операции. Повторите ввод (copy или move)'};" ^
    "$count=[int](read-host 'Количество файлов, которое нужно копировать\перемещать в папку (число больше 0)');" ^
    "while (($count -le 0) -or ($count -notmatch '^\d+$')) {$count=read-host 'Введено неподдерживаемое значение. Повторите ввод (число больше 0)'};" ^
    "$source=read-host 'Укажите полный путь к директории, из которой нужно копировать\перемещать файлы';" ^
    "while (!(test-path $source)) {$source=read-host 'Введен неподдерживаемый или несуществующий путь. Повторите ввод'};" ^
    "$destination=read-host 'Укажите полный путь к директории, в которой нужно создавать папки и копировать\перемещать в них файлы';" ^
    "while ($destination -notmatch '^[a-z]:\\') {$destination=read-host 'Введен неподдерживаемый путь. Повторите ввод'};" ^
    "$files=Get-ChildItem $source -file -Recurse | sort directoryname;" ^
    "$iters=[int](($files.count)/$count);" ^
    "1..$iters | foreach -begin {$end=-1} -process {" ^
        "$folder="""$($destination)\$($_)""";" ^
        "mkdir $folder;" ^
        "$start=$end+1;" ^
        "$end=$start+($count-1);" ^
        "$files[$start..$end] | foreach {" ^
            "$file=$_.fullname;" ^
            "switch ($operation) {" ^
                "'copy' {Copy-Item -path $file -Destination $folder; break};" ^
                "'move' {Move-Item -path $file -Destination $folder; break};}}}"
pause
exit

@echo off
powershell -executionpolicy bypass -command "$operation=read-host 'Введите тип операции (copy или move)';" ^
    "while (($operation -ne 'copy') -and ($operation -ne 'move')) {$operation=read-host 'Введён неподдерживаемый тип операции. Повторите ввод (copy или move)'};" ^
    "$limit=[int](read-host 'Количество файлов, которое нужно копировать\перемещать в папку (число больше 0)');" ^
    "while (($limit -le 0) -or ($limit -notmatch '^\d+$')) {$limit=read-host 'Введено неподдерживаемое значение. Повторите ввод (число больше 0)'};" ^
    "$source=read-host 'Укажите полный путь к директории, из которой нужно копировать\перемещать файлы';" ^
    "while (!(test-path $source)) {$source=read-host 'Введен неподдерживаемый или несуществующий путь. Повторите ввод'};" ^
    "$destination=read-host 'Укажите полный путь к директории, в которой нужно создавать папки и копировать\перемещать в них файлы';" ^
    "while ($destination -notmatch '^[a-z]:\\') {$destination=read-host 'Введен неподдерживаемый путь. Повторите ввод'};" ^
    "$structure=Get-ChildItem $source -file -Recurse | group DirectoryName;" ^
    "$count_files_in_folder=($structure[0].group).Count;" ^
    "$count_all_files=$structure.group.count;" ^
    "1..$count_files_in_folder | foreach -begin {$array=0..$($count_files_in_folder-1); $list_files=[System.Collections.ArrayList]::new()} -process {0..$($count_files_in_folder-1) | foreach {$list_files.Add(($structure[$($_)].group)[$array[$($_)]])>$null}; $array=$array[1..$($array.count-1)]+$array[0]};" ^
    "1..$($count_all_files/$limit) | foreach -begin {$start=0} -process {$end=$start+$limit-1; $new_folder=mkdir """$($destination)\$($_)"""; $list_files[$start..$end] | foreach {$file=$_; switch ($operation) {'copy' {Copy-Item -Path $file.fullname -Destination """$($new_folder.FullName)"""}; 'move' {Move-Item -Path $file.fullname -Destination """$($new_folder.FullName)"""}}}; $start=$end+1}"
pause
exit

powershell -f combine_files.ps1 -from somedir -total 100 -by 20

@Echo Off &Cls &>nul Chcp 1251
    Set "BoxIn=Z:\Box_In"
    Set "BoxOut=Z:\Box_Out"
    Set /A nOut=5
    Set /A Lcopy=1  &rem Copy=1 Move=0
    Set "Mask=*.*"
 
    SetLocal EnableDelayedExpansion
    Set /A n1=0, nd=0, i=0
    For /D %%d In ("%BoxIn%\*.*") Do (For %%f In ("%%d\%Mask%") Do Set /A n1+=1) &GoTo :Cont
    :Cont
    For /D %%d In ("%BoxIn%\*.*") Do Set /A nd+=1 &For %%f In ("%%d\%Mask%") Do Set /A i+=1 &Set "@@f!i!=%%f"
    
    Set /A m=1,ii=0
    Set /A mm=100000+%m%
    Set "Out="%BoxOut%\%mm:~-3%"
    Md "%Out%"
    
    For /L %%i In (1,1,%n1%) Do Set /A l=-1 &For /L %%j In (1,1,%nd%) Do (
        Set /A l+=1, il=%%i+!l!
        If !il! GEQ %n1% Set /A l=1-%%i 
        Set /A k=^(%%j-1^)*!n1!+%%i+!l!
        Set /A ii+=1
        If !ii! GTR %nOut% (
            Set /A m+=1
            Set /A mm=100000+!m!
            Set "Out=%BoxOut%\!mm:~-3!"
            Md "!Out!" &Set /A ii=1
        ) 
        If %Lcopy% NEQ 0 (>nul Call Copy "%%@@f!k!%%" "!Out!\") Else (>nul Call Move "%%@@f!k!%%" "!Out!\")
    )
Exit /B

@echo off
powershell -executionpolicy bypass -command "$operation=read-host 'Введите тип операции (copy или move)';" ^
    "while (($operation -ne 'copy') -and ($operation -ne 'move')) {$operation=read-host 'Введён неподдерживаемый тип операции. Повторите ввод (copy или move)'};" ^
    "$limit=[int](read-host 'Количество файлов, которое нужно копировать\перемещать в папку (число больше 0)');" ^
    "while (($limit -le 0) -or ($limit -notmatch '^\d+$')) {$limit=read-host 'Введено неподдерживаемое значение. Повторите ввод (число больше 0)'};" ^
    "$source=read-host 'Укажите полный путь к директории, из которой нужно копировать\перемещать файлы';" ^
    "while (!(test-path $source)) {$source=read-host 'Введен неподдерживаемый или несуществующий путь. Повторите ввод'};" ^
    "$destination=read-host 'Укажите полный путь к директории, в которой нужно создавать папки и копировать\перемещать в них файлы';" ^
    "while ($destination -notmatch '^[a-z]:\\') {$destination=read-host 'Введен неподдерживаемый путь. Повторите ввод'};" ^
    "$structure=Get-ChildItem $source -file -Recurse | group DirectoryName;" ^
    "$count_files_in_folder=($structure[0].group).Count;" ^
    "$count_all_files=$structure.group.count;" ^
    "$array=0..$($count_files_in_folder-1);" ^
    "$list_files=[System.Collections.ArrayList]::new();" ^
    "0..$($count_files_in_folder-1) | foreach {0..($structure.count-1) | foreach {$index=($_ %% $count_files_in_folder)-1; $list_files.Add(($structure[$($_)].group)[$array[$($index)]])>$null}; $array=$array[1..$($array.count-1)]+$array[0]};" ^
    "$range=$count_all_files/$limit;" ^
    "if ($range.gettype().name -eq 'double') {$end_range=([int]($range -replace ',.+$'))+1} else {$end_range=$range};" ^
    "1..$end_range | foreach -begin {$start=0} -process {$end=$start+$limit-1; $new_folder=mkdir """$($destination)\$($_)"""; $list_files[$start..$end] | foreach {$file=$_; switch ($operation) {'copy' {Copy-Item -Path $file.fullname -Destination """$($new_folder.FullName)"""}; 'move' {Move-Item -Path $file.fullname -Destination """$($new_folder.FullName)"""}}}; $start=$end+1}"
pause
exit

powershell -nop -ep bypass -f combine_files.ps1 -command Move -from somedir -to FOLDER_{0} -total 100 -by 10