File Filter List

Hi all,

I am trying to make a file/drive/folder directory interface with VB. It is all working except the only thing i can't manage to make it do is to filter on more than one file type.
I want to be able to filter on BMP and TIF files, i have the following code:

filterList.AddItem "*.TIF; *.BMP"

filterList.SelText = filterList.List(0)

'Apply the file type choosen to the file list displayed
filDialog.Pattern = filterList.Text

The filterList is the list box with the file type extensions and the filDialog is the list box with the files.

It only filters on the first file type, so in this case TIF (no BMP), even if you swap them it only filters on the first file type.

Can anyone shed some light on this? i have seen other examples (limited) on the web and it says to do as ive done, why doesn't mine work? is there a project reference i have to add in?

Thanks,

You need to use OR (= |)

Here's 3 options:

ALL | TXT | BAT

Code:

---

Option Explicit

' cdlCFPrinterFonts &H2

' Save File Options
'&H2 - Forces a warning before overwriting a file
'&H8 - Stops default directory from changing
'&H200 - more than one file can be selected.
'&H1000 - This makes it so the file must exist.
'&H2000 - This warns the user before creating a new file.

Private Sub cmdOpen_Click()
  ' CancelError is True.
  On Error GoTo ErrHandler
  CommonDialog1.InitDir = App.Path
  ' Set Flags
    CommonDialog1.Flags = cdlOFNAllowMultiselect Or cdlOFNLongNames
  ' Set filters.
  CommonDialog1.Filter = "All Files (*.*)|*.*|Text" & _
      "Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat"
  '  CommonDialog1.Filter = "AutoForm Files (*.doc) (*.rtf)|*.doc;*.rtf|All " & _
          "Files (*.*)|*.*"
 
  ' Specify default filter.
  CommonDialog1.FilterIndex = 2 ' Default to TEXT
  ' Display the Open dialog box.
  CommonDialog1.ShowOpen
  ' Call the open file procedure.
 '  OpenFile (CommonDialog1.FileName)
  Debug.Print CommonDialog1.FileName
  Exit Sub

ErrHandler:
' User pressed Cancel button.
  Exit Sub

End Sub

---

Pssst, hey Dave,... "The filterList is the list box with the file type extensions and the filDialog is the list box with the files." makes me think OP is using the FileListBox control and then this "filDialog.Pattern = filterList.Text" confirms it so it would be...

Code:

---

filterList.Text = "*.bmp;*.tif" 'no spaces between ; & *

filDialog.Pattern = filterList.Text

---

Good Luck

I think vb5prgrmr saw the problem. That is, there shouldn't be any spaces between the file types.