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.