Use the Common Dialog and here is the filter
Use the same filter to save
Code:
   CommonDialog1.Filter = "AllFiles (*.*)|*.*|PHP Docs(*.Php) 
   |*.php|HTML Docs(*.htm)|*.htm"
   CommonDialog1.ShowOpen