hi,
thank you,
i try as under, but i need to see all images without choice becuse every image have anumber, i give evry picture number (serial number)

IF !EOF()
   thisform.text1.value=thisform.text1.value+1
   thisform.text2.value=nam 
   local lcImageFile
*** lcImageFile = "images\"+alltrim(str(thisform.text1.value)) +(".jpg")+(".GIF")
 lcImageFile=getpict()
if file(lcImageFile)
   ThisForm.Image1.Picture = lcImageFile
  SKIP
else
   MessageBox("The picture doesn't exist - filename: " + lcFileName)
  skip -1 
endif
ENDIF 

thanks

>My point is that with your code .. "images\"+alltrim(str(thisform.text1.value))+(".GIF") +(".jpg") .. you specify a file as .. .value))+(".GIF") +(".jpg") which will result in xxx.GIF.JPG where xx = ....value.
>
>To solve your real problem, you must use adir() to get the complete name of the file, and then use that name.
>But if I understand your problem correctly, I would rather use ...picture=getpict()
>
>>Hi,
>>
>>thank you for reply, i don't know what you mean?
>>
>>i have folder inside my directory(IMAGES),i have images with names as
>>1.jbg
>>2.bmp
>>3.gif
>>4.
>>5.
>>.
>>.
>>.
>>etc
>>
>>>Do you try to read the result of your expressions? A picture file will not be named yourfile.jpg.gif, will it?
>>>
>>>>Hi all,
>>>>
>>>>any idea to get all images via this code under
>>>>i have images type
>>>>as bmp , gif , jbg....etc
>>>>
>>>>

>>>>Thisform.Image1.Picture = "images\"+alltrim(str(thisform.text1.value))+(".GIF") && it works
>>>>

>>>>

>>>>Thisform.Image1.Picture = "images\"+alltrim(str(thisform.text1.value))+(".GIF") +(".jpg")&& or and +(".jpg")&& error
>>>>

>>>>
>>>>thanks