filtrar usando commondialog en vbasic6

[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