USE PICT IF !EOF() thisform.text1.value=thisform.text1.value+1 thisform.text2.value=nam local lcImageFile lcImagefile="images\"+alltrim(str(thisform.text1.value)) if adir(temp,lcImagefile+'.*')#1 messagebox('You either have zero, or more than one file, with this name') else lcImagefile=lcImagefile+"."+(justext(temp(1))) ThisForm.Image1.Picture = lcImageFile endif ELSE EXIT&&¬ work endif>You must use adir() to check what kind of file really exists on your computer. Then you must change the line
>lcImagefile="images\"+alltrim(str(thisform.text1.value)) >if adir(temp,lcImagefile+'.*')#1 > messagebox('You either have zero, or more than one file, with this name') >else > lcImagefile=lcImagefile+justext(temp(1)) >endif>
>>IF !EOF() >> thisform.text1.value=thisform.text1.value+1 >> thisform.text2.value=nam >> local lcImageFile >> lcImageFile = "images\"+alltrim(str(thisform.text1.value)) +(".jpg")+(".GIF") >>if file(lcImageFile) >> ThisForm.Image1.Picture = lcImageFile >>else >> MessageBox("The picture doesn't exist - filename: " + lcImageFile) >>endif >> SKIP >> else >> skip -1 >>ENDIF >>>>
>>>>**at command button via click event >>>>IF !EOF() >>>> thisform.text1.value=thisform.text1.value+1 >>>> thisform.text2.value=nam >>>> local lcImageFile >>>> lcImageFile = "images\"+alltrim(str(thisform.text1.value)) +(".jpg")+(".GIF") >>>>if file(lcImageFile) >>>> ThisForm.Image1.Picture = lcImageFile >>>> SKIP >>>>else >>>> MessageBox("The picture doesn't exist - filename: " + lcFileName) >>>> skip -1 >>>>endif >>>>ENDIF >>>> >>>>>>>>
>>>>>local lcImageFile >>>>>lcImageFile = "images\"+alltrim(str(thisform.text1.value))+(".GIF") +(".jpg")&& or and +(".jpg") >>>>>MessageBox("The filename is: " + lcImageFile) >>>>>Thisform.Image1.Picture = lcImageFile >>>>>>>>>>
>>>>>if file(lcImageFile) >>>>> ThisForm.Image1.Picture = lcImageFile >>>>>else >>>>> MessageBox("The picture doesn't exist - filename: " + lcFileName) >>>>>endif >>>>>