home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 6 / corel-draw-6-cd1.iso / photopnt / to16bmp.csc < prev   
Text File  |  1995-08-18  |  1KB  |  41 lines
  1. REM Converts bmps to 16 color
  2. REM To16bmp.csc July 24, 1995
  3.  
  4. REM This file will open all of the bitmaps in a directory and resave them as 16 color bitmaps
  5. REM These new files will be named *.16
  6.  
  7. DECLARE SUB convertimage(filename$)
  8.  
  9. REM Get the Directory from the user
  10. dir$ = INPUTBOX("Please enter the path to the directory (ie. C:\myimages)" + CHR(13) + CHR(10) + "of the bitmaps you wish to convert")
  11. IF dir$ = "" THEN STOP
  12.  
  13. REM Remove the backslash of there is one.
  14. IF RIGHT(dir$, 1) = "\" THEN dir$ = LEFT(dir$, LEN(dir$) -1)
  15.  
  16. CURRFOLDER = dir$
  17.  
  18. REM Get the path to each file
  19. bmpfile$ = CURRFOLDER + "\" + FINDFIRSTFOLDER("*.bmp", 1 OR 2 OR 4 OR 8 OR 16 OR 32)
  20. DO WHILE bmpfile <> CURRFOLDER + "\" 
  21.     ConvertImage bmpfile      'Convert image actually executes the Paint commands
  22.     bmpfile = CURRFOLDER + "\" + FINDNEXTFOLDER()
  23. LOOP
  24.  
  25. REM This is called for each file to be converted
  26. SUB ConvertImage(filename$)
  27. WITHOBJECT PAINT
  28.     .FileOpen filename, 0, 0, 0, 0, 0
  29.     .ImageConvert 6, 2, 0, 0, 0, 0, 0
  30.  
  31. REM This changes the name. Delete this section to overwrite file
  32.     lenfilename& = LEN(filename)
  33.     filename = LEFT(filename, lenfilename - 3)
  34.     filename = filename + "16"
  35. REM end rem
  36.  
  37.     .FileSave filename, 769, 0
  38. END WITHOBJECT
  39.  
  40. END SUB
  41.