Файлы по каталогам!

[ingko]

У меня есть папка, в ней 5000 файлов. Надо по-быстрому раскидать все эти файлы по папкам, да так, чтоб в каждой папке было не больше 100 файликов.

Какой прогой это сделать или командой? Windows-7

[ABTOMAT]

А как прога поймёт какой файл куда класть? Или не важно какие файлы, главное чтоб только не больше 100 ?

[ingko]

Сообщение от ABTOMAT

А как прога поймёт какой файл куда класть? Или не важно какие файлы, главное чтоб только не больше 100 ?

Не важно... Важно разделить эти 5000 на папочки по 100... Может, кто-то напишет, Булчане??! В инете таких нет.

[radiobutton]

на блице можно написать такое за 5 минут. xВ

[ingko]

Сообщение от radiobutton

на блице можно написать такое за 5 минут. xВ

Напиши, буду весьма...

[Данил]

держи
Прога MAV показывает, но работу свою делает)
http://www.google.ru/search?gcx=w&sourceid=chrome&ie=UTF-8&q=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0% BC%D0%B0+%D0%B4%D0%BB%D1%8F+%D1%80%D0%B0%D1%81%D1% 81%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%BA %D0%B8+%D1%84%D0%B0%D0%B9%D0%BB%D0%BE%D0%B2#hl=ru& newwindow=1&sa=X&ei=IXHnTvWoJo_dsgbnnqjMBw&ved=0CB kQvwUoAQ&q=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0 %BC%D0%BC%D0%B0+%D0%B4%D0%BB%D1%8F+%D1%81%D0%BE%D1 %80%D1%82%D0%B8%D1%80%D0%BE%D0%B2%D0%BA%D0%B8+%D1% 84%D0%B0%D0%B9%D0%BB%D0%BE%D0%B2&spell=1&bav=on.2, or.r_gc.r_pw.,cf.osb&fp=ca3ef90c577ef46c&biw=1920& bih=979

Framework BRL.FileSystem
Import BRL.Retro

Global Mapfiles:String[5000]

Global Mapfilesn:Int

Mapfiles = LoadDir(CurrentDir())
For Local t:String = EachIn Mapfiles
If Right(t, 4)[..1] = "." Then
Mapfiles[Mapfilesn]=t
Print t
Mapfilesn:+1
End If
Next
Print "Files: " + MapFilesn
Print "Folders: " + Int(MapFilesn/100)

CreateDir "New Folder 0"

For i=0 To Int(MapFilesn/100)
CreateDir "New Folder " + i
Next

For i=0 To MapFilesn
CopyFile(MapFiles[i],"New Folder " + Int(i/100)+"\"+MapFiles[i])
Print "Copy :" + MapFiles[i] + " to " + "New Folder " + Int(i/100)
Next

[ingko]

Сообщение от Данил

держи
Прога MAV показывает, но работу свою делает)

И чего? Твоя прога создала 50 простых каталогов и всё

[SBJoker]

наверно файлы по русски названы

[ingko]

Сообщение от SBJoker

наверно файлы по русски названы

Нет, но там уже больше 7000 файлов... А его прога создает 70 папок и тащит всего по 50 файлов в папку

[Dream]

For i=0 To Int(MapFilesn/100)

забавно, а если файлов меньше 100 - прога ж вообще ничего не сделает?

ааа...

CreateDir "New Folder 0"

серьёзный подход

[Данил]

CreateDir "New Folder " + i

Вообще, проверял у себя, было около 500 файлов, рассортировала.

забавно, а если файлов меньше 100 - прога ж вообще ничего не сделает?

а еще нету гуи, кстати, функции для смены названия папки, инсталятора, еще кучи всего. как я мог.

Еще раз протестировал.

Все работает.

[impersonalis]

Я, конечно, слоу.
Но такие вещи (продвинутое администрирование) можно делать, программируя операции в пакетных файлах или J-скриптах.