FoxPro/Visual FoxPro - copiar archivo de extexion "jpg"

si selecciono la extension de archivo correcto todo biem pero si la extencion no corresponde al "jpg" me da error como puedo comparar que en la carpeta que selecciono no se encuentra el archivo espesificado, espero la respuesta xf gracia....


ORIGEN = ALLTRIM(THISFORM.ORIGEN_entrada.VALUE)
DESTINO = ALLTRIM(THISFORM.TExt1.VALUE)


IF ORIGEN = "*.jpg"
COPY FILE ORIGEN + "*.jpg" TO DESTINO + "*.jpg"
MESSAGEBOX("Archivo de fotos copiado exitosamente....IMPORTANTE NO RENOMBRAR LAS CARPETA CREADA POR EL SISTEMA !!", 48, "INFORMACION")

ELSE
MESSAGEBOX("El formato no es compatible...seleccione una CARPETA que contenga FOTOS..!!!")
RETURN

ENDIF

utiliza el GETFILE()