见附件：vfp怎样实现按序号将照片文件夹中的照片提取到新文件夹？？

close database
set safety off
if not directory(sys(5)+sys(2003)+"\zp")
    mkdir zp
endif
use 序号
scan
    if file(sys(5)+sys(2003)+"\照片\"+bmxh+".jpg")
        cfile1=sys(5)+sys(2003)+"\照片\"+bmxh+".jpg"
        cfile2=sys(5)+sys(2003)+"\zp\"+bmxh+".jpg"
        copy file (cfile1) to (cfile2)
    endif
endscan

[此贴子已经被作者于2018-6-28 19:49编辑过]

照片文件夹中的照片多，我想按序号提取照片到新的文件夹！！

帮帮忙，，急用！！

提取过的照片是不是从"照片"文件夹中删除

不同删除，只提出要的照片即可！！

厉害版主，！！谢谢！！

2楼代码应该能符合你的要求

我试了试，行！节省了我好多时间！！