[Данил]

держи
Прога 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