Okay, habe mich vllt wirklich etwas blöd angestellt bei dem Erstellen des Themas.
Habe mir jetzt folgendes zusammengeschustert:
Code:
procedure TForm1.btnstartSortClick(Sender: TObject);
var i:Integer; fname, dirname : string;
begin
for i:=1 to 248 do begin
fname:= StringGrid.Cells[1,i];
dirname:=StringGrid.Cells[2,i];
if not DirectoryExists('C:\pdfbenannt\'+dirname+'\') then
CreateDir('C:\pdfbenannt\'+dirname+'\') else
if not FileExists('C:\pdfbenannt\'+fname+'.pdf') then break else
end;
showmessage('Schritt 1 fertig');
for i:=1 to 248 do begin
fname:= StringGrid.Cells[1,i];
dirname:=StringGrid.Cells[2,i];
renamefile('C:\pdfbenannt\'+dirname+'.pdf','C:\pdfbenannt\'+dirName+'\'+fname+'.pdf') ;
end;
showmessage('Schritt 2 fertig');
end;
Bis jetzt erstellt der Ablauf genau die richtigen Ordner, verfrachtet die Dateien jedoch nicht hinein. Kann mir jetzt jemand weiter helfen?