Разбиение файла

[sergei92]

Я извиняюсь неправильно выразился.У меня папка с 1000 файлов расширения "html". Файлы внутри папки идут в любой последовательности. Нужно разбить эту большую папку на несколько папок размером в 100 файлов расширения "html".

[Stilet]

Фуфуфух... неисповедимы пути студентов - то на Эльбрус заведет, то в марианскую.
Тогда еще один вопрос - почему на Билдере? почему не на скажем Ватнике?
Ведь написать скрипт для командника винды проще чем делать экзечину.

[sergei92]

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

[Stilet]

Ну тогда тебе нужно открыть Хелп по Билдеру и познакомиться с функцией FindFirst() и FindNext() и их примерами. Они помогут составить список файлов.
А потом уже и разводку по папкам можно делать.

[sergei92]

Спасибо за подсказку по функциям FindFirst() и FindNext() вроде разобрался нахожу файлы по нужной директории. А вопрос по разбиению по папкам остается ни как не получается реализовать!

[Аватар]

А алгоритм этого разбиения есть какой-то? Хоть на словах.

[sergei92]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
          TSearchRec sr;
   if (FindFirst(path, faAnyFile | faDirectory, sr) == 0)
     {
        do
        {
           AnsiString name=ExtractFileName(ChangeFileExt(sr.Name,""));
        }
        while(FindNext(sr) == 0);
     }

}

Здесь в переменную name записываются имена файлов. У меня их 1000. Нужно разбить по 100 файлов в папке.

[Stilet]

Да. А теперь освой функцию ForceDirectory() для создания каталога и RenameFile() для переброски. Должна быть в поставке Билдера.
Т.е. что-то типа

 
 int i=1,n=1;
       do
        {
           AnsiString name=ExtractFileName(ChangeFileExt(sr.Name,""));
           ForceDirectory(IntToStr(n));
           RenameFile(name,(IntToStr(n)+"\\"+name);
           if(i%10) n++; i++;
        }

[Аватар]

Под алгоритмом имеется ввиду критерий разбивки. Можно случайным образом разбросать. Можно начинающиеся на букву 'А' в одну папку, 'Б' в другую и т.п. Та мало ли что в голову прийдет

[sergei92]

Пока разбивка будет происходить случайным образом!