home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_Image_015_Save.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
596b
|
21 lines
File.Recursive = TRUE
File.Limit = 10 ' Limit 10
File.Find( "c:\\*.jpg" )
Font.BkColor = _ColorWhite
Font.BkModeOpaque = TRUE
For i = 0 To File.NumberOfElements - 1
ret = Image(0).Open( File( i ).Path )
if ret < 1 Then
Print "Open ERROR: ", File( i ).Path
Else
t = File( i ).Name + " - " + File( i ).hcdate
Image(0).DrawText( 0, 0, Image(0).Width, Image(0).Height, t )
f = "c:\\temp\\test\\" + File( i ).Name
ret = Image(0).Save( f, _Image_JFIF, 24, 0, File( i ).Path, "" )
if ret < 1 Then
Print "Save ERROR: ", f
EndIf
EndIf
Redraw()
Next