Total Commander

Код: Выделить всё

@echo off &setlocal enableextensions &chcp 1251 >nul
rem Всё, кроме видео, переместить в подпапку
rem Важно! удалите пробелы в конце строк
rem Параметры: "%L"
rem Автор: Tol!k
for /f "usebackq delims=" %%l in ("%~1") do call :m "%%l" "%%l."
exit /b

:m
pushd %1 &md "%~nx2" ||(popd &goto :eof)
for /f "delims=" %%f in ('dir /b/a-d ^|findstr /ev ^
/rc:26[34] /rc:\.av[ci] /c:.flv /rc:\.m[24o]v /rc:\.mp[24]v* /rc:\.mpe*g /c:.ogm /c:.vob /rc:\.vp[67] /c:.xvid /c:.wmv'
) do move "%%f" "%~1%~nx2"
popd
goto :eof

Код: Выделить всё

' Создание подкаталогов внутри выделенных папок по имени файла
' с заданным расширением и перемещение в них остальных файлов
' Параметры: %L <расширение>
'=============================================================
Ext = WScript.Arguments(1)
With CreateObject("Scripting.FileSystemObject")
  Set TempFile = .OpenTextFile(WScript.Arguments(0), 1)
  Do While Not TempFile.AtEndOfStream
    Fd = TempFile.ReadLine
    If .FolderExists(Fd) Then
      On Error Resume Next
      For Each F in .GetFolder(Fd).Files
        If StrComp(Ext, .GetExtensionName(F), 1) = 0 Then
          NF = Left(F, Len(F)-Len(Ext)-1) & "\"
          If Not .FolderExists(NF) Then .CreateFolder NF
        Else .MoveFile F, NF
        End If
      Next
      For Each F in .GetFolder(Fd).Files
        If StrComp(Ext, .GetExtensionName(F), 1) > 0 Then .MoveFile F, NF
      Next
    End If
  Loop
  TempFile.Close
End With
WScript.Quit