Para quitar la extensión del archivo puedes usar:
Código vb:
Ver originalNombre = Left("archivo.jpg", InstrRev("archivo.jpg", ".") - 1)
Left sirve para extraer cierta cantidad de caracteres a la izquierda de la cadena e InstrRev busca una ocurrencia (en este caso el ".") en una cadena empezando desde la derecha.
Después, para saber las imágenes que existen con una consulta SELECT se puede hacer, y para copiar las imágenes se puede usar FileCopy.