Kens API and diff applications

[Steven]

strFilter = ahtAddFilterItem(strFilter, "Excel Files (*.xls)", "*.xls")

How would I make it so I can use the dropdown to be able to select:
All
Excel
Word Docs
CSV
TXT
PDF

Thank you,

Steven

 

[pietlinden]

Did you miss the sample?

Function TestIt()
Dim strFilter As String
Dim lngFlags As Long

'--EXAMPLES OF ADDING MULTIPLE FILTERS TO THE LIST....
strFilter = ahtAddFilterItem(strFilter, "Access Files (*.mda,
*.mdb)", _
"*.MDA;*.MDB")
strFilter = ahtAddFilterItem(strFilter, "dBASE Files (*.dbf)",
"*.DBF")
strFilter = ahtAddFilterItem(strFilter, "Text Files (*.txt)",
"*.TXT")
strFilter = ahtAddFilterItem(strFilter, "All Files (*.*)", "*.*")

' Since you passed in a variable for lngFlags,
' the function places the output flags value in the variable.
Debug.Print Hex(lngFlags)
End Function

 

[Steven]

Yes, I get so wound up and anxious that sometimes I dont read the entire
code ... I just copy it and go.

Thank you for the help.

 

[Chris O''''Neill]

Going back to your earlier message, you could also do this:

strFilter = ahtAddFilterItem(strFilter, "Steven's Stuff (Steven.*)",
"Steven.*")

Btw, this routine is good for alot of things besides opening or saving a
file. I use it to select a filename and path for e-mail attachments. Works
great!

Regards, Chris