LPARAMETERS tcFileName, tcCase LOCAL lcFileName, loFile, llOk, lcNewName lcFileName = FULLPATH(ALLTRIM(tcFileName)) llOk = .T. IF FILE(lcFileName) DO CASE CASE UPPER(tcCase) = "L" lcNewName = LOWER(lcFileName) CASE UPPER(tcCase) = "U" lcNewName = UPPER(lcFileName) CASE UPPER(tcCase) = "P" lcNewName = PROPER(lcFileName) OTHERWISE llOk = .F. ENDCASE IF llOk DECLARE Long MoveFile IN Kernel32 String, String IF MoveFile(lcFileName, lcNewName + ".TEMP") = 0 ; OR MoveFile(lcNewName + ".TEMP", lcNewName) = 0 llOk = .F. ENDIF ENDIF ELSE llOk = .F. ENDIF RETURN llOk