Cita:
Iniciado por David el Grande 
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.
Gracia por tu respuesta pero tengo una consulta ya puedo quitar la extencion de las imagens pero no se como copiar el total de las imagens encontradas es decir si encontre 10 imagens de 20 como coloco el filecopy para q copie solo las encontradas.
Gracias por sus respuestas