filtrar usando commondialog en vbasic6

[mveraa]

hola maestros quiero que al buscar una foto solo me muestre los formatos jpg , pero no me funciona.


CD.DialogTitle = "SELECCIONE UNA FOTOGRAFIA DE VEHICULO"
CD.ShowOpen
'CD.Filter "FOTOSJPG (*.JPG)¦*.JPG¦FOTOS JPEG (*.JPEG)¦*.JPEG" //no se enque me equivoco aqui
'CD.ShowSave


Text1(11).Text = CD.FileTitle

muchas gracias,

[GeoAvila]

Bueno alli lo tienes solo que mi commondialog se llama Dialogo..

solo cambiaselo a CD

Código:

Dim pattern As String
    Dim strFileName As String
    '
    
    '
    
    pattern = " (Imagenes|*.bmp;*.jpeg;*.jpg"
    Dialogo.Filter = pattern
    Dialogo.ShowOpen
    strFileName = Dialogo.FileName