psylent letterz,
Here, I have created a working Bulk Image Resaver for you. All you have to do within it is set the folder pathfile that contains the images needed to be resaved. So, place all the images into a single folder and specify that folder's path as the filepath$ in the program. It is rather simple code and is commented. Therefore, you should have no problem looking through it to understand its workings. Enjoy.
Bulk File Resaver
` #### Bulk Resaver ####
` #### Chris Martindale ####
set display mode 800,600,32
sync on : sync rate 0
true = 1 : false = 0
nomorefiles = -1
` this variable is simply for visual file conversion confirmation; adds prefix onto left side of filename
` set to "" for no prefix
fileprefix$ = "new_"
pathfile$ = "C:Documents and SettingsChris MartindaleDesktopPrograms 1Gamesnonameconvertbmps"
` Here, you would want yo get the filepath$ of containing folder using a filebrowser or other means necessary
if path exist(pathfile$) = true
cd pathfile$
else
` print error message to screen if the path does not exist
repeat
text 5,5,"The specified directory does not exist!!! Press any key to exit."
sync
until scancode() > 0
cls : end
endif
` find each bitmap(looking over any that are not bitmaps) in folder, grabbing and converting them 1 at a time
imagecounter = 0
find first
while get file type() > nomorefiles
` check last 3 characters of current filename to see whether it is a .bmp(if so, open it and resave it...else
` move onto the next file in the current directory until at the end of the directory
filename$ = get file name$()
fileextension$ = right$(filename$,3)
if fileextension$ = "bmp"
load bitmap filename$,1
delete file filename$
save bitmap fileprefix$ + filename$,1
delete bitmap 1
inc imagecounter
endif
find next
endwhile
cls
repeat
text 5,5, str$(imagecounter) + " bitmap images resaved successfully!!! Press any key to end program."
sync
until scancode() > 0
cls : end