Fórum Copiar diretorio com todos os arquivos trocando os formato #207366

procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
  Origem, Destino: string;
begin
  I := FindFirst(´c:\Origem\*.bmp´, faAnyFile, SR);
  while I = 0 do begin
    if (SR.Attr and faDirectory) <> faDirectory then begin
      Origem := ´c:\Origem\´ + SR.Name;
      Destino:= copy(SR.Name,1,POS(ExtractFileExt(SR.Name),SR.Name));
      Destino := ´c:\Destino\´ + Destino + ´jpg´;
      if not CopyFile(PChar(Origem), PChar(Destino), true) then
        ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
    end;
    I := FindNext(SR);
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
   MyBMP : TBitmap;
begin
   I := FindFirst(´c:\Origem\*.*´, faAnyFile, SR);
   while I = 0 do
      begin
      if (SR.Attr and faDirectory) <> faDirectory then
         begin
         Origem := ´c:\Origem\´ + SR.Name;

         MyBMP := TBitmap.Create;
         try
         MyBMP.LoadFromFile(Origem);


         Destino:= copy(SR.Name,1,POS(ExtractFileExt(SR.Name),SR.Name));
         Destino := ´c:\Destino\´ + Destino + ´jpg´;

         if not FileExists(Destino) then
            BmpToJpg(MyBMP);

         finally
         MyBMP.Free;
         end;

         end;
      I := FindNext(SR);
      end;
end;

function TForm2.BmpToJpg(cImage: tbitmap): Boolean;
var
  jp: TJpegImage;
begin
   jp := TJpegImage.Create;
   try
      with jp do
      begin
      Assign(cImage);
      SaveToFile(Destino)
      end;
   finally
      jp.Free;
   end;
end;