|
Registriert seit: 26. Jan 2011
339 Beiträge
Delphi 12 Athens
|
AW: Dateinamen mit (nummer) umbennen wenn doppelt
22. Feb 2023, 20:14
Reicht nicht sowas:
i:=1;
while FileExists(Name+'('+IntToStr(i)+')'+Ext) do
inc(i);
kopiere -> Name+Ext, Name+'('+IntToStr(i)+')'+Ext
Beste Grüße
|