Habe das StrigGrid nochmal überarbeitet. Der Code sieht jetzt so (übernommen) aus:
Code:
procedure TForm1.btnstartSortClick(Sender: TObject);
var i:Integer; fname, dirname : string;
begin
for i := 1 to 248 do begin
fname := StringGrid.Cells[0, i];
dirname := StringGrid.Cells[1, i];
if not FileExists('C:\pdfbenannt\'+fname+'.pdf') then
Continue; // oder Continue?
ForceDirectories('C:\pdfbenannt\'+dirname);
if not RenameFile('C:\pdfbenannt\'+dirname+'.pdf','C:\pdfbenannt\'+dirName+'\'+fname+'.pdf') then
RaiseLastOSError;
end;
ShowMessage('fertig');
Nur kann ich mit der Fehlermeldung nichts anfangen (Das System kann die Datei nicht finden - obwohl sie genau in dem Ordner liegt!)
Bist Du sicher, dass das so gehört, einmal
if not FileExists('C:\pdfbenannt\'+
fname+'.pdf')
und danach
RenameFile('C:\pdfbenannt\'+
dirname+'.pdf'
??