Как скопировать несколько рекурсивно найденых одинаковых файлов из ListBox в определенную директорию

[crayzi_skript]

Всем привет. Есть код который рекурсивно ищет по маске допустим файл 1.txt . Этот файл мне нужно скопировать в определенный директорию. Как быть если нашлось несколько таких файлов, например c:1.txt и c:\games\1.txt и более . Как в таком случае скопировать оба найденных файла в нужную директорию*?


Вот сам код рекурсивного поиска файла :

procedure FindFiles(StartFolder, Mask: String; List: TStrings;
ScanSubFolders: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
StartFolder:=IncludeTrailingBackslash(StartFolder);
FindResult:=FindFirst(StartFolder+'*.*', faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if (Attr and faDirectory)>0 then begin
if ScanSubFolders and (Name<>'.') and (Name<>'..') then
FindFiles(StartFolder+Name, Mask, List, ScanSubFolders);
end else begin
if MatchesMask(Name, Mask) then List.Add(StartFolder+Name);
end; 
FindResult:=FindNext(SearchRec);
end; 
finally
FindClose(SearchRec);
end;
finally 
List.EndUpdate;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
FindFiles('C:', '1.txt', ListBox1.Items, true);
Label1.Caption := IntToStr(ListBox1.Items.Count);
end;

end.

[Аватар]

Копировать функция CopyFile
Если несколько - делай разные имена на выходе, добавляя к имени например так:
1_1.txt
1_2.txt и т.д.

[crayzi_skript]

можете мне подсказать код, ну чтоб автоматом переименовывалось?
примерно так я и думал, только пока знаний реализовать это не хватает...

[Foreseen]

c:1.txt и c:\games\1.txt и более

Если несколько - делай разные имена на выходе, добавляя к имени например так 1_1.txt
1_2.txt и т.д.

А лучше так с_1.txt c_games_1.txt - чтоб хоть знать, какой файл откуда взят

[crayzi_skript]

этот вариант был бы идеален с_1.txt c_games_1.txt
но если бы я мог сам реализовать то не писал бы сюда) подскажите как сделать

[Foreseen]

Нет, не идеален Я совсем забыл про допустимую длину пути к файлу, куда входит и его имя. Так что рано или поздно ваша программка даст сбой. Наверное лучше будет создавать текстовик-описатель в папке назначения, куда будут скидываться исходные пути, к примеру: 1_2.txt=c:\games\1.txt и т.д.
Просто как пример-

procedure TForm1.Timer1Timer(Sender: TObject);
var
file_name, new_file_name: PWideChar;
begin
tag:=tag+1;
file_name:='C:/1.txt';
new_file_name:=PChar('D:/1_'+inttostr(tag)+'.txt');
copyFile(file_name, new_file_name, true);
end;

[crayzi_skript]

спасибо. а как же все таки прикрутить к моему проекту копирование файлов с их переименовыванием с листбокса в нужный каталок, допустим с:\temp?

[Foreseen]

Так я постом выше привел образец, только у меня там таймер, а вам нужно будет сделать цикл

for i:=0 to ListBox1.items do
Begin
file_name:=PChar(ListBox1.items[i]);
new_file_name:=PChar('D:/1_'+inttostr(i)+'.txt');
copyFile(file_name, new_file_name, true);
End;

[min@y™]

можете мне подсказать код, ну чтоб автоматом переименовывалось?
примерно так я и думал, только пока знаний реализовать это не хватает...

// Поиск уникального имени файла в папке AFolder
function GetUniqueFileName(const AFolder, APrefix, AExtention: string): string;
var
  Index: Integer;
begin
  Index:= 1;
  repeat
    Result:= IncludeTrailingPathDelimiter(AFolder) + APrefix + IntToStr(Index) + AExtention;
    Inc(Index);
  until not FileExists(Result);
end;

Вот ещё, из другого проекта скопипастил:

function TMainForm.ExtractFileNameOnly(const AFileName: string): string;
var
  Index, PointPos: Integer;
begin
  // Извлечение из пути имени файла без расширения
  Result:= ExtractFileName(AFileName);

  PointPos:= 0;
  for Index:= Length(Result) downto 1 do
    if Result[Index] = '.'
      then begin
             PointPos:= Index;
             Break;
           end;

  if PointPos <> 0
    then Result:= Copy(Result, 1, PointPos - 1);
end;

function TMainForm.GetUniqueFileName(const AFileName: string): string;
var
  Template, Ext: string;
  Index: Integer;
begin
  // Поиск уникального имени файла для сохранения
  Result:= AFileName;
  Template:= ExtractFilePath(AFileName) + ExtractFileNameOnly(AFileName);
  Ext:= ExtractFileExt(AFileName);
  Index:= 2;

  while FileExists(Result) do
    begin
      Result:= Format('%s-%d%s', [Template, Index, Ext]);
      Inc(Index);
    end;
end;

[crayzi_skript]

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

Так я постом выше привел образец, только у меня там таймер, а вам нужно будет сделать цикл

for i:=0 to ListBox1.items do
Begin
file_name:=PChar(ListBox1.items[i]);
new_file_name:=PChar('D:/1_'+inttostr(i)+'.txt');
copyFile(file_name, new_file_name, true);
End;

спасибо. попробую