lcFile = my_getfile("c:\default\dir\") FUNCTION my_getfile LPARAMETERS tcDefaultDir LOCAL llError, lcSaveDir, lcFile lcSaveDir = FULLPATH(CURDIR()) IF TYPE("tcDefaultDir") = "C" AND DIRECTORY(tcDefaultDir) TRY CD (tcDefaultDir) llError = .f. CATCH llError = .t. ENDTRY IF llError MESSAGEBOX("The specified folder does not exist:" + CHR(13) + tcDefaultDir, 0, "GetFile() Error") RETURN ENDIF ENDIF * Do the getfile() here lcFile = GETFILE(...) * Restore original folder CD (lcSaveDir) * Pass-thru RETURN lcFile