Create a Macro to Export Images, multiple times

Hello!

I wonder if somenone can help me to create a macro to open and image and Export that image(not saveAs)

I have ~500 images and I need to open each image and export it.
The process will be
OpenImage==>Export==>Image==>Folder

I would appreciate any help

Thanks,
Juan