2,722
社区成员
发帖
与我相关
我的任务
分享不能识别的谓命令～～！！送分
owjmc=getpi('JPG,gif,PCX,BMP','请选择相片文件')
if empty(owjmc)
return
endif
if file ('&owjmc')
if .not. DirEctory("个人相片")
md 个人相片
endif
app gene 相片 from "&owjmc" class paint picture
temp_name=allt(基本库.姓名)+".bmp"
copy file "&owjmc" to"个人相片\&temp_name."
endif
if empty(owjmc)
return
endif
if file ('&owjmc')
if .not. DirEctory("个人相片")
md 个人相片
endif
app gene 相片 from "&owjmc" class paint picture
temp_name=allt(基本库.姓名)+".bmp"
copy file "&owjmc" to"个人相片\&temp_name."
endif
...全文
请发表友善的回复…
发表回复
qd163 2008-06-16
- 打赏
- 举报
"&owjmc"
把""去掉看看
把""去掉看看
