El asistente del botón del complemento Desert está buscando imágenes. ¿Cómo encontrar todas las imágenes en una carpeta?

Nombra cada imagen numéricamente 1.bmp 2.bmp

DIM imagen

para imagen=1 a 99

dm_ret = dm. FindPic(0,0,2000,2000,Picture&".bmp""000000",0.9,0,intX,intY)

Si intX >= 0 e intY >= 0 entonces

Cuadro de mensaje "Encontrado" e imagen

salir para

Finalizar si

siguiente