Hallo,
soweit ich die Problembeschreibung verstehe, gibt es nichts zu "suchen": Der potentielle Speicherort der benötigten Datei ist bekannt, lediglich enthält der Pfadname Variablen:
Delphi-Quellcode:
function FetchFile(
id: Integer;
const sourceDir, subDir, fileName, targetDir: string
): Boolean;
var
fnSrc, fnTgt: TFileName;
begin
fnSrc := Format('%s\PC%3d100\%s\%s', [
ExcludeTrailingPathDelimiter(sourceDir),
id, subDir, fileName
]);
fnTgt := IncludeTrailingPathDelimiter(targetDir) + fileName;
Result := FileExists(fn) and CopyFile(PChar(fnSrc), PChar(fnTgt), False);
end;
Getippt und nicht getestet.
Grüße vom marabu