mover varios archivos jpg a otra carpeta

[beginner01]

saludos.

aqui te agrego una variación de un procedimiento que te puso ecfisa en este hilo
con el cual puedes mover archivos de de un directorio a otro.

Código Delphi [-]
procedure mover(const Ruta: string);
var
  SR: TSearchRec;
begin
  if FindFirst(Ruta+'\*.JPG',faArchive, SR) = 0 then
  begin
    repeat                                                  //aqui ruta de destino
     MoveFile(PChar(ruta+'\'+SR.Name),PChar('c:\destino'+'\'+sr.Name));
      //Nombres.Add(Ruta+'\'+SR.Name);
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 mover('c:'); //la ruta de origen de los archivos jpg
end;