mover varios archivos jpg a otra carpeta
 

buenas amigos del foro como estan, espero que bien. escribo porque me ha surgido la duda de como mover los archivos que tengo en una carpeta(que son imagenes .jpg) a otra carpeta, lo que quiero es moverlos no copiartos, seria como un cortar/pegar.

es decir tengo la carpeta:

c:\origen en la cual tengo n archivos .jpg, y requiero que al presionar un botor me envie esos archivos a

c:\destino.
he visto la documentacion de delphi y veo que hay una funcion movefile, pero esta solo mueve un solo archivo y yo lo que requiero es mover todos los archivos, bueno espero haber sido explicito.

gracias de antemano.

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;

Hola, de esta forma:

Código Delphi [-]
var
 Origen, Destino, aPath : String;
 sr: TSearchRec;
begin
   aPath := 'C:\origen\';
   if FindFirst(aPath + '*.jpg', faAnyFile, sr) = 0 Then
     repeat
       Origen := aPath+sr.Name;
       Destino := 'C:\destino\'+sr.Name;
       MoveFile(PChar(Origen), PChar(Destino));
     until FindNext(sr) <> 0;
   SysUtils.FindClose(sr);
end;

Saluditos

muchisimas gracias resuelto
 

muchas gracias amigos, justamente estaba intentando modificar la funcion que me facilito ecfisa y no me salia, pero con la aclaracion de ustedes me ha resultado muy bien lo que queria hacer.

bendiciones.