我的表单内有一个按钮,想让它实现本地浏览图片,复制到我创建的文件夹下并该名?
请论坛内的高手指点我,在此先谢谢各位了．

[此贴子已经被作者于2007-4-27 11:13:52编辑过]

实现本地浏览图片　putfile( ) 函数
复制　COPY TO
改名 rename FileName1 TO FileName2

谢谢,今天我又学会了许多,哈哈
我编的程序是:
mz="\毕业设计\udata\"+thisform.pageframe1.page1.text1.value+".jpg"
pictemp=getpict("","选择照片","导入")
If !empty(pictemp)
Wait windows "正在导入相片，请等待！......." at 50,80 timeout 2 nowait
copy file &pictemp to &mz
mm=filetostr("&mz")
replace xs.zp witch mm
thisform.pageframe1.page1.image1.picture=mz
ENDIF
Thisform.refresh

它只能添加\Vfp98\下面的图片,如果添加别处的图片就会出现"命令中含有不能识别的短语或关键字"这种情况
挂起时它显示"->copy file &pictemp to &mz"
这是为什么?

哈哈,成功了.作了一下午.现在发上来.
程序是:
mz="\毕业设计\udata\"+thisform.pageframe1.page1.text1.value+".jpg"
pictemp=getpict("","选择照片","导入")
If !empty(pictemp)
Wait windows "正在导入相片，请等待！......." at 50,80 timeout 2 nowait
copy file "&pictemp" to &mz
mm=filetostr("&mz")
replace xs.zp witch mm
thisform.pageframe1.page1.image1.picture=mz
ENDIF
Thisform.refresh

对不起,上面的应该是
copy file "&pictemp" to "&mz"