Создание папки в папке

[artemavd]

Доброго времени суток! Возник такой вопрос. Есть папка с номером, например, 200. В ней несколько тысяч файлов с именами в таком виде: 1_111111.pdf, 2_111111.pdf, 1_222222.pdf и т.д. Что требуется:
1. Создать общую папку, у которой имя будет 200;
2. Создать в ней подпапки, у которых в качестве имени задается число после "_", т.е. например, папка с именем 111111, в ней файл 1.pdf,2.pdf. Другая подпапка с именем 222222, в ней файл 1.pdf и т.д.
3. Каким-то макаром организовать поиск.
С первым пуктом вроде проблем быть не должно, воспользуюсь функцией GetBefore. Но вот как быть c другими пунктами. Можете что-то подсказать по делу? Заранее спасибо за помощь.

[Sanprof]

создать папку в любом месте так ForceDirectories(путь к конечной папке);

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

2. Создать в ней подпапки, у которых в качестве имени задается число после "_", т.е. например, папка с именем 111111, в ней файл 1.pdf,2.pdf. Другая подпапка с именем 222222, в ней файл 1.pdf и т.д.

задесь можно из имени файла получать (111111, 222222 и тп), а потом переименовывать файл

3. Каким-то макаром организовать поиск.

с этим не понятно, что вам конкретно нужно?

[Serge_Bliznykov]

э... а в чём вопрос?
в цикле через FindFirst / FindNext
Проверять наличие папки, если её нет, создавать:
if not DirectoryExists(stInDir) then ForceDirectories(stInDir);
переносить туда файлы через Move

[artemavd]

с этим не понятно, что вам конкретно нужно?

Ну, например, есть файлы: 200_1_111111.pdf и 200_2_111111.pdf. Нужно создать папки и подпапки таким способом, о котором шла речь выше и затем сделать возможность поиска по ShellTreeView. Ну например я ввожу в строке поиска 111111 и у меня в дереве отображается содержимое папки 111111 с файлами 1.pdf, 2.pdf. Так понятнее?

ForceDirectories(stInDir);

Это что за чудо?)

[Serge_Bliznykov]

короче, Вам написать готовую процедурку, которая разнесёт (и при этом переименует Ваши файлы) ?!

[Sanprof]

можно такой алгоритм
1. Создаем TStringList в нем будут пути к файлам, делаем поиск по папке заполняем наш Лист.
Работаем с первым элементом Листа
2. Получаем Имя файла, из него выделяем 200 (имя корневого каталога) и создаем папку, далее выделяем 111111 (имя подкаталога) создаем внутри 200.
3. Копируем файл (либо перемещаем) и переименовываем.
И так по всему списку нашего Листа
Все.

[artemavd]

короче, Вам написать готовую процедурку, которая разнесёт (и при этом переименует Ваши файлы) ?!

Если Вас это не затруднит.

[Stilet]

Это что за чудо?)

Это функция создающая каталог со всеми вложенными в него каталогами (если они есть не трогает) по указанному пути.

3. Каким-то макаром организовать поиск.

Все файлы в одной папке или там вложенность какая-то есть?

[W0LF]

Вот, набросал...

var
  searchResult : TSearchRec;
  i: Integer;
  NameDir, NameFile: string;
begin
  if FindFirst('c:\200\*.*', faAnyFile-faDirectory, searchResult) = 0 then
  begin
    repeat
      ListBox1.Items.Add(searchResult.Name);
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;
  for i:=0 to ListBox1.Count-1 do begin
    NameDir := 'c:\200\' + Copy(ListBox1.Items.Strings[i],
        Pos('_', ListBox1.Items.Strings[i])+1, Pos('.', ListBox1.Items.Strings[i])-3);
    if not DirectoryExists(NameDir) then
      ForceDirectories(NameDir);
    NameFile := Copy(ListBox1.Items.Strings[i], 1, Pos('_', ListBox1.Items.Strings[i])-1);
    CopyFile(PAnsiChar('c:\200\'+ListBox1.Items.Strings[i]),
      PAnsiChar(NameDir+'\'+NameFile+ExtractFileExt(ListBox1.Items.Strings[i])), False);
    DeleteFile('c:\200\'+ListBox1.Items.Strings[i]);
  end;

Вообщем, делает список всех файлов в каталоге "c:\200\" и заносит их в ListBox. Затем, создает, если нету, каталог с именем находящийся в именах файлов, типа 1_22222.pdf, между знаков "_" и ".". Копирует файлы в эти каталоги с именем до знака "_" и удаляет их оригиналы с "c:\200\".

Если я правильно понял суть вопроса, значит это то, что вам нужно. Если, что-то не так - пишите, поправлю, если надо.

[artemavd]

Wolf, неплохо . Почти то, что нужно, но немного не так. Нужно, чтобы была родительская папка, 200, в ней были созданы подпапки, у которых в качестве имени идет, например, 111111, а уже в папке 111111 содержатся файлы 1_111111.pdf, 2_111111.pdf . . Вот.

Кстати, я отключу удаление исходных файлов. Этого не должно происходить, это я подправлю . Может из за этого грузится в ListBox долго.

Все файлы в одной папке или там вложенность какая-то есть?

Простой поиск дочерней подпапки в родительской папке.