Moin, ich hab zwar keine Ahnung obs hier rein passt aber mal sehen :]
Also, ich habe mir gestern mit Hilfe ein paar Membern ein Proggy gebaut welches mir Files umbenannt.
Das ganze funktioniert so:
Ich gebe einen Ordner an und eine beliebige File Endung.Nun klicke einfach nur den Button "Start" !
Jetz werden alle Files in diesem Ordner wie folgt umbenannt:
1.[ext]
2.[ext]
3.[ext]
.
.
.
100.[ext]
[ext] = jpg , exe usw usw
Nun möchte ich aber das es wie folgt ausgegeben wird:
001.[ext]
002.[ext]
003.[ext]
....
010.[ext]
......
100.[ext]
Also es soll immer 3 Stellig bleiben.
Der Source für das ganze is folgender:
Delphi-Quellcode:
begin
FindAllFiles(path, Edit2.Text, CheckBox1.Checked);
a := 0;
for i := 0 to Length(Files) - 1 do
begin
repeat
inc(a);
if (Edit4.Text = '') then
ext := ExtractFileExt(Files[i])
else
ext := '.'+Edit4.Text;
temp := ExtractFilePath(Files[i])+Format('%s%d', [Edit3.Text, a])+ext; //Beim Format gehörenglaube ich ein paar Argumente, dass dieführenden nullen passen
until (not FileExists(temp));
RenameFile(Files[i], temp);
end;
Files := nil;
end;
MFG