OpenEuphoria

 
filename = getOpenFileNameEx(   
              Window1,               -- parent window   
               
              "e:\\euphoria\\stocks\\*.dat", 
 
                       -- no default name   
              {  "Text Files", "*.TXT",    -- text files   
                 "Data Files","*.DAT",   
                 "All Files", "*.*" },    -- everything else   
              { {ofnFilterIndex,2} }  )  

try this
This worked for me unless i misunderstand what you want.
Johnny