El Drive1 => DriveListBox ==> devuelve el nombre de la unidad de disco seleccionada.
El Dir1 ==> DirListBox ==> solamente presenta directorios.
El File1 ==> FileListBox ==> presentará los ficheros existentes en un directorio.
Estos tres son "controles de busqueda de ficheros", se encuentran por defecto en el cuadro de herramientas del vb junto a otros controles como, image, line...etc.
El Drive1 le indicará al Dir1 una unidad de disco valida, el Dir1 le indicará al File1 el directorio donde se encuentra el archivo que vas a borrar y por ultimo el File1 te mostrará todos los ficheros (nombreArchivo.Extención) que se encuentran en el directorio especificado por el Dir1.
Después solo halláis el .jpg, seleccionadlo y listo.
Si deseáis que solo se puedan borrar jpg, podes usar el Right como dice EON, este es solo un EJEMPLO una SUGERENCIA de las tantas formas que podes tener para hacer lo que deseáis:
Agrega esto en el evento click del File1, antes del If que controla la confirmación de eliminación:
If LCase(Right(File1.FileName, 3)) = "jpg" Then 'Verificamos que el archivo seleccionado sea un jpg
De esta manera solo se podrían borrar archivos .JPG
Espero haber podido ayudar un poco…. Hasta luego…