PDF-Datein nach Datenbankvorgabe verschieben

[darky95]

Mit folgendem Code hat's wunderbar funktioniert:

Code:

for i := 1 to 248 do begin
     fname := StringGrid.Cells[0, i];
     dirname := StringGrid.Cells[1, i];
     
     if not FileExists('C:\pdfbenannt\'+fname) then
       Continue; // oder Continue?
     ForceDirectories('C:\pdfbenannt\'+dirname);
    
      if not RenameFile('C:\pdfbenannt\'+fname,'C:\pdfbenannt\'+dirName+'\'+fname) then
       RaiseLastOSError;
      ProgressBar1.Position:=ProgressBar1.position+7;
   end;

Vielen Dank an alle!