Автоматическое создание папок

[Вахмурка]

Только скриптом. На всякий случай:

22.07.11 Added: Multi-rename tool: Directly accept backslashes in name field (for moving to subfolders) (32/64)

Перевод:

22.07.11 Добавлено: Инструмент группового переименования: Непосредственно принимает обратную косую черту в поле имени (для перемещения в поддиректории) (32/64)

[Flasher]

Только скриптом.

Сейчас прибежит покачавший головой Tol!k и напишет батник.

[Вахмурка]

И про Батю не забудь. Прибегут - и отлично. Мы все того и добиваемся

[Flasher]

Батя батниками, как ни парадоксально, не увлекается. А скрипт и я могу написать, если на вопрос ответ получу.

[Tol!k]

Я становлюсь предсказуемым?

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

@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

расширения видео дополните самостоятельно

[Вахмурка]

"Давно здесь сидим" ( © "Белое солнце пустыни").

[Riemann]

А jpg обязательно будут иметь спереди базовое имя avi?

не обязательно

[Tol!k]

Ну и, как отличить нужные от ненужных?

[Riemann]

Ну и, как отличить нужные от ненужных?

все что не видео, то в папку с названием видео.

[Tol!k]

обновил

[Riemann]

Создал батник, параметр для кнопки %L и иногда получается какая ересь, а иногда вообще 0 эффект.

[Flasher]

Riemann
А так?

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

' Создание подкаталогов внутри выделенных папок по имени файла
' с заданным расширением и перемещение в них остальных файлов
' Параметры: %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

[Tol!k]

Создал батник, параметр для кнопки %L и иногда получается какая ересь, а иногда вообще 0 эффект.

Путь запуска очистил?
Уникодные имена?
7?

[Riemann]

А такой вариант вполне работает, только не сразу понял, что надо расширение фильма в параметрах. Благодарю.

Добавлено спустя 2 минуты:

Создал батник, параметр для кнопки %L и иногда получается какая ересь, а иногда вообще 0 эффект.

Путь запуска очистил?
Уникодные имена?
7?

Спасибо, но не станем мучать ваш вариант, а то взорвется моск (мой).

[Tol!k]

Доброго времени суток Умные Люди! по теме созданию папок, есть ли возможность дописать какую то строку в код, чтобы только что созданные папки всегда были на виду! Когда создаешь папки, они доходят до нижнего уровня в ТС и создаются дальше, но их уже не видать( надо сделать так чтоб они всегда были на виду... спасибо за внимание...

Сортировка рулит. Но это не по теме