Ohje, also, extra für dich, damit hier mal Schluss ist und ich ins Bett komme:
Delphi-Quellcode:
CopyFile(PChar(OpenDialog1.FileName),
PChar(IncludeTrailingPathDelimiter(ExtractFilePath(OpenDialog1.FileName)) +
'Bilder\' + ExtractFileName(OpenDialig1.FileName)), true);
Übersichtlicher:
Delphi-Quellcode:
AlterPfad := OpenDialog1.FileName;
NeuerPfad := IncludeTrailingPathDelimiter(ExtractFilePath(OpenDialog1.FileName)) +
'Bilder\' + ExtractFileName(OpenDialig1.FileName);
CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);
Den
Bilder-Pfad musst du natürlich ggf. vorm Kopieren erstellen, das geht mit
CreateDirectory oder bei mehreren neuen Ebenen mit
ForceDirectories.
Edit: Meines Wissen benötigst du
IncludeTrailingPathDelimiter nicht einmal, da
ExtractFilePath den abschließenden Backslash anhängen müsste, also so:
Delphi-Quellcode:
AlterPfad := OpenDialog1.FileName;
NeuerPfad := ExtractFilePath(OpenDialog1.FileName) +
'Bilder\' + ExtractFileName(OpenDialig1.FileName);
CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);