Pharo Script of the Day: Mass image format conversion from PNG to JPEG

You might find useful the following code to convert a whole directory of image in PNG format to JPEG:

?

1 2 3 4 5 6

(FileSystem disk workingDirectory filesMatching: '*.png') do: [ : pngFile |  pngFile asFileReference binaryReadStreamDo: [ : stream |   PluginBasedJPEGReadWriter    putForm: (PNGReadWriter formFromStream: stream)    onFileNamed: pngFile withoutExtension , 'jpg' ] ]  displayingProgress: 'Converting images to JPG...'.