画像ファイルを所得して保存

こんにちは
データベースのソフトをつくっていますが
入力の際、他のフォルダなどにある画像を選択して登録し
ソフトと同じ場所のフォルダ（img)に保存して
検索の時に登録した内容と画像を表示したいのですが
内容（text）はできたのですが、画像の読み出し＆保存がわかりません
教えてもらえますか？



#include "hspda.as"
	
	sdim hin,255,128				;品番
	sdim kata,255,128				;型番
	sdim hon,255,128				;本体
	sdim hir,255,128				;ヒール
	sdim pi,255,128					;仕様1
	sdim siyo,255,128				;仕様
	sdim data1,400,400				;データーベース配列

	


*st
	cls
	pos 100,100
	button goto "入力",*up			;データーベース入力
	pos 100,150
	button goto "検索",*dl			;データーベース検索
	stop
*up
	
	hin=""
	kata=""
	hon=""
	hir=""
	pi=""
	siyo=""
	cls
	
	pos 50,60
	mes "品番  ：":pos 120,60:input hin,100,30				;品番入力
	pos 50,110
	mes "型番  ：":pos 120,110:input kata,100,30				;型番入力
	pos 50,160
	mes "本底  ：":pos 120,160:input hon,100,30				;本体入力
	pos 50,210
	mes "ヒール：":pos 120,210:input hir,100,30				;ヒール入力
	pos 50,260
	mes "ピース：":pos 120,260:input pi,100,30				;ピース入力
	pos 50,310
	mes "仕様  ：":pos 120,310:input siyo,100,30				;型番入力
	pos 50,360
	button goto"入力",*sav
	button goto"終わり",*st
	stop

*sav
	notesel data
	noteload "data.txt"						
	setdata=str(""+hin+","+kata+","+hon+","+hir+","+pi+","+siyo)
	noteadd setdata,-1,1
	notesave "data.txt"
	cls
	font "ＭＳ ゴシック",20,1:pos 10,0:mes "品番  :"+hin:pos 10,20:mes "型番  :"+kata:pos 10,40:mes "本体  :"+hon:pos 10,60:mes "ヒール:"+hir:pos 10,80:mes "ピース:"+pi:pos 10,100:mes "仕様  :"+siyo
	
	button goto"続ける",*up
	button goto"終わり",*st 
	stop
*dl
	cls
	sdim data2,400,8
	notesel data
	noteload "data.txt"
	repeat noteinfo(0)
	noteget data.cnt,cnt
	wait 1
	loop
	csvsel data
	hin =""
	pos 100,20
	input hin,100,30
	objsel 0
	pos 200,20
	button goto "検索",*ken
	onkey gosub *nac
	stop
*ken
	repeat noteinfo(0)
	csvstr data2,data.cnt
	if data2.0=str(hin) : cls:font "ＭＳ ゴシック",20,1:pos 10,120:mes "品番  :#"+data2.0:pos 10,140:mes "型番  :"+data2.1:pos 10,160:mes "本底  :"+data2.2:pos 10,180:mes "ヒール:"+data2.3:pos 10,200:mes "ピース:"+data2.4:pos 10,220:mes "仕様  :"+data2.5:goto *mod:else:if str(hin)!data2.0 :pos 10,50:mes "該当無し"
	loop
	pos 400,20:button goto"初めに戻る",*st
	stop
*nac
	repeat
	if iparam==13:goto *ken:else:return
	loop
	stop
*mod
	pos 400,20:button goto"初めに戻る",*st
	pos 260,20:button goto"続ける",*dl
	stop

HSPTV!掲示板