'======================================================================
' Копирование выделенных файлов\папок по заданному количеству
'   в отдельные (создаваемые) папки

' Параметры:
' {файл-список} {целевая папка} {количество}

' Пример параметров вызова из TC:
' %L "%T" 50
'======================================================================
Option Explicit
'================= Изменяемые параметры ===============================
Const Rank = 3  'Минимальное количество цифр в создаваемых папках
'======================================================================
Dim FSO, FileList, List, F, Folder, Count, i, n, Path
Set FSO  = CreateObject("Scripting.FileSystemObject")
FileList = WScript.Arguments(0)
Folder   = WScript.Arguments(1)
Count    = CInt(WScript.Arguments(2))
List     = Split(FSO.OpenTextFile(FileList).ReadAll, vbNewLine)
If Right(Folder, 1) <> "\" Then Folder = Folder & "\"
n = 1
i = Count
For Each F In List
  If F <> "" Then
    If i >= Count Then
      If Len(CStr(n)) < Rank Then
        Path = Folder & Right(String(Rank, "0") & CStr(n), Rank) & "\"
      Else
        Path = Folder & CStr(n) & "\"
      End If
      If Not FSO.FolderExists(Path) Then FSO.CreateFolder(Path)
      i = 1
      n = n + 1
    Else
      i = i + 1
    End If
    If FSO.FileExists(F)   Then FSO.CopyFile   F, Path
    If FSO.FolderExists(F) Then
      If Right(F, 1) = "\" Then F = Left(F, Len(F) - 1)
      FSO.CopyFolder F, Path
    End If
  End If
Next

Set FSO = Nothing
Wscript.Quit 0

@echo off

if -%1==- echo Use %%L as first parameter [and number of files in subdirs as second]! & pause & goto :EOF

setlocal

set fileno=0
set fldrsz=%2
if -%fldrsz%==- set fldrsz=50

for /F "usebackq delims=" %%f in (%1) do call :do_action "%%f"

echo.
echo Moved %fileno% files.
pause

goto :EOF


:do_action

set /a fldrno=1000000000 + fileno / fldrsz
set fldrnm=%fldrno:~-5%

echo Moving %1 to subfolder %fldrnm%...
if not exist %fldrnm% md %fldrnm%
move %1 %fldrnm%

set /a fileno=fileno + 1

; Параметры: "%P" "%T" 50

If $CmdLine[0] < 3 Then
    MsgBox (0, "", "Недостаточно параметров, должно быть 3.")
    Exit
EndIf

Global $nDirCounter = 0
Global $nFileCounter = $CmdLine[3]

$hSearch = FileFindFirstFile($CmdLine[1] & "*.*")

While 1
    If $nFileCounter = $CmdLine[3] Then
        $nFileCounter = 0
        $nDirCounter += 1
        $sCurrentTarget = $CmdLine[2] & StringFormat("%03d", $nDirCounter)
        DirCreate($sCurrentTarget)
    EndIf
    $sFile = FileFindNextFile($hSearch)
    If @error Then Exit
    If @extended Then ContinueLoop ; без каталогов
    FileMove($CmdLine[1] & $sFile, $sCurrentTarget)
    $nFileCounter += 1
Wend