>>******************************************************************** >>FUNCTION lValidFileName( tcFileName ) >>******************************************************************** >> LOCAL lcValidChars, lcUpperJustFileName >> >> m.lcValidChars = " ^'@{}[],=()+._-!$%&/#~1234567890ABCEDFGHIJKLMONPQRSTUVWXYZ" >> m.lcUpperJustFileName = UPPER( JUSTFNAME(m.tcFileName) ) >> >> DO CASE >> CASE EMPTY( m.lcUpperJustFileName ) >> RETURN .F. >> CASE INLIST( JUSTSTEM(m.lcUpperJustFileName), "AUX", "COM1", "COM2", "COM3", "COM4", "CON", "LPT1", "PRN" ) >> RETURN .F. >> CASE LEN( CHRTRAN( m.lcUpperJustFileName, m.lcValidChars, "" ) ) > 0 >> RETURN .F. >> OTHERWISE >> RETURN .T. >> ENDCASE >> >>ENDFUNC >>