******************************************************************** 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