mover varios archivos jpg a otra carpeta

10-06-2011

*Caro*

Moderadora

Registrado: jul 2004

Ubicación: Cochabamba, Bolivia

Posts: 2.544

Poder: 24

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

__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.

« Tema Anterior | Próximo Tema »

Normas de Publicación
no Puedes crear nuevos temas no Puedes responder a temas no Puedes adjuntar archivos no Puedes editar tus mensajes El código vB está habilitado Las caritas están habilitado Código [IMG] está habilitado Código HTML está deshabilitado

Saltar a Foro

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Mover carpeta y todo su contenido	MaMu	API de Windows	10	03-06-2007 05:08:04
Aparce un *.lck en un otra carpeta	javicho_villa	Varios	8	30-10-2006 19:02:10
Mover una imagen encima de otra	maravert	Gráficos	2	24-02-2005 01:04:45
Mover datos de una tabla a otra	Sirkius	Conexión con bases de datos	5	27-08-2004 21:01:07
Help!:Copiar archivo a otra carpeta	DarkByte	Varios	5	09-09-2003 18:39:00

La franja horaria es GMT +2. Ahora son las 00:20:51.