find x640 photos and copy the,

for i in `ls`; do exiv2 $i/* 2> /dev/null | grep "Image size.*640" | sed -e 's/ .*//'; done > photos
for j in `cat photos`; do cp $j here/ ; done