forum.boolean.name - Файлы по каталогам!

forum.boolean.name (http://forum.boolean.name/index.php)

- Болтовня (http://forum.boolean.name/forumdisplay.php?f=25)

- - Файлы по каталогам! (http://forum.boolean.name/showthread.php?t=16027)

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

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

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

Ответ: Файлы по каталогам!

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

Ответ: Файлы по каталогам!

Цитата:

Сообщение от ABTOMAT (Сообщение 213835)

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

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

Ответ: Файлы по каталогам!

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

Ответ: Файлы по каталогам!

Цитата:

Сообщение от radiobutton (Сообщение 213837)

на блице можно написать такое за 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

Ответ: Файлы по каталогам!

Цитата:

Сообщение от Данил (Сообщение 213842)

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

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

Ответ: Файлы по каталогам!

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

Ответ: Файлы по каталогам!

Цитата:

Сообщение от SBJoker (Сообщение 213860)

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

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

Ответ: Файлы по каталогам!

Код:

For i=0 To Int(MapFilesn/100)

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

ааа...

Код:

CreateDir "New Folder 0"

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

Ответ: Файлы по каталогам!

Цитата:

CreateDir "New Folder " + i

:)

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

Цитата:

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

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

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

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

Ответ: Файлы по каталогам!