FUNCTION get_File( tcType, tcDir )
>LPARAMTER tcType, tcDir
>LOCAL lcDefaultDir, lcDefaultDrive, lcfile
>tcDir = IIF( TYPE( 'tcDir' ) <> 'C', SYS(2003), tcDir )
>tcType = IIF( TYPE( 'tcType' ) <> 'C', 'BMP,GIF', tcType
>
>lcDefaultDIR = SYS(2003)
>lcDefaultDrive = SYS(5)
>
>SET DEFAULT TO tcDir
>
>lcFile = GETFILE( blah, blah, blah )
>*!* Check that a file was really selected, etc, etc.
>
>SET DEFAULT TO (lcDefaultDrive + lcDefaultDir)
>
>RETURN lcFile
>
>>I want:
>>lcFile = getfile('bmp,gif', 'graphics') or similar
>>where graphics is the subdirectory.