home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2005 July / PCpro_2005_07.ISO / files / freeware / hardcopy / hcf.exe / basic / Basic_Image_015_Save.bas < prev    next >
Encoding:
BASIC Source File  |  2003-11-26  |  596 b   |  21 lines
  1. File.Recursive = TRUE
  2. File.Limit = 10                                    ' Limit 10
  3. File.Find( "c:\\*.jpg" )    
  4. Font.BkColor = _ColorWhite
  5. Font.BkModeOpaque = TRUE
  6. For i = 0 To File.NumberOfElements - 1
  7.     ret = Image(0).Open( File( i ).Path )
  8.     if ret < 1 Then
  9.         Print "Open ERROR: ", File( i ).Path
  10.     Else
  11.         t = File( i ).Name + " - " + File( i ).hcdate
  12.         Image(0).DrawText( 0, 0, Image(0).Width, Image(0).Height, t )
  13.         f = "c:\\temp\\test\\" + File( i ).Name
  14.         ret = Image(0).Save( f,  _Image_JFIF, 24, 0, File( i ).Path, "" ) 
  15.         if ret < 1 Then
  16.             Print "Save ERROR: ", f
  17.         EndIf
  18.     EndIf
  19.     Redraw()
  20. Next
  21.