*USEFILE.PRG *USAGE: =UseFile("INSURED",ddir,"NAME", [expC], [expC], [expC] ) * PARAMETERS: * ufile = File to open * udir = Directory * uorder = Index Tag Name * ualias = Alias * uparm1, uparm2, uparm3 = AGAIN, EXCLU or NOINDEX * PARAMETERS ufile,udir,uorder,ualias,uparm1,uparm2,uparm3 *...other stuff here ON ERROR errnum = ERROR() DO openfile DO CASE CASE errnum = 0 && No Error xreturn = .T. CASE errnum = 1 && File "<file>" does not exist. *... OTHERWISE && attempt to repair DO loadff5 && declares env varialbles for dll =FF_SCAN(udir+ufile+'.DBF',-1) && -1 = fix all errors ENDCASE *... RETURN xreturn *-------------------------------- PROCEDURE openfile errnum = 0 IF USED(ualias) AND !uagain IF !unoselect SELECT (ualias) ENDIF ELSE IF unoselect IF uexclu USE (udir+ufile) ALIAS (ualias) IN SELECT(1) EXCLU ELSE USE (udir+ufile) ALIAS (ualias) IN SELECT(1) ENDIF ELSE SELECT 0 IF uexclu USE (udir+ufile) ALIAS (ualias) EXCLU ELSE USE (udir+ufile) ALIAS (ualias) ENDIF ENDIF ENDIF RETURN PROCEDURE loadff5 DECLARE Integer FF_Scan in FoxFix5.DLL String Filename, Integer FixMode DECLARE Integer FF_Initialize in FoxFix5.DLL String ModuleName DECLARE Integer FF_WatchDLL in FoxFix5.DLL String ModuleName DECLARE Integer FF_SetConfigFile in FoxFix5.DLL String ConfigName DECLARE Integer FF_GetLastErrorCode in FoxFix5.DLL Integer bFixed DECLARE String FF_GetLastErrorFile in FoxFix5.DLL DECLARE String FF_GetLastLogFile in FoxFix5.DLL DECLARE FF_SetStealthFixMode in FoxFix5.DLL Integer FixMode DECLARE Integer FF_GetStealthFixMode in FoxFix5.DLL DECLARE FF_SetEnableStealth in FoxFix5.DLL Integer Setting DECLARE Integer FF_GetEnableStealth in FoxFix5.DLL DECLARE FF_SetGenerateAccessDenied in FoxFix5.DLL Integer Setting DECLARE Integer FF_GetGenerateAccessDenied in FoxFix5.DLL RETURNFoxFix5.ini:
[General] CheckSharedFiles=TRUE DisableAnimation=FALSE VerboseMessages=FALSE DeleteDataScanFiles=TRUE DeleteErrorLogFile=FALSE KeepLogsWithErrors=TRUE RememberWindowPos=FALSE ShowToolTips=TRUE Top=10 Left=80 Width=640 Height=580 DateFormat=1 Epoch=1971 ReadOnlyCalcValues=TRUE MRUCount=2 MRULimit=20 MaxErrors=500 GenerateInfoLogs=TRUE [DLL] EnableStealthRepair=TRUE HookDynamicLoadedDLLs=TRUE GenerateAccessDenied=FALSE ExcludedModuleCount=3 ExcludedModule0=COMCTL32.DLL ExcludedModule1=COMDLG32.DLL ExcludedModule2=VERSION.DLL FileMaskCount=2 FileMask0=*.DBF FileMask1=*.DBC DisplaySplashOnLoad=FALSE DisplayStatusOnLoad=FALSE [Logging] ArchivePath=..\archive MessageLogFilename=..\Logs\foxfix.log WriteArchive=TRUE WriteMessageLog=TRUE AppendMessageLog=FALSE LockArchive=FALSE EmitPatchData=TRUE UseAlternatePath=TRUE AlternatePath=..\logs DumpHeaders=TRUE LogNamesAsUNC=FALSE [Table] UserDBFExt=FIX LockAttempts=5 CheckLastModifiedDate=TRUE EnforceOffsets=TRUE MaxDescriptorErrors=2 ShiftResyncWindow=4 AutoShiftDescriptors=TRUE MaxAutoShifts=16 EnableNonFoxChecks=FALSE ForceFileType=FALSE ForceFoxPro26=FALSE CheckCodepage=TRUE Codepage=437 ForceCodepage=TRUE DBCMatchLength=100 ExtendTruncatedDBF=TRUE WriteFLT=TRUE AllowExtHeader=FALSE AllowExtHeaderBytes=1 [Memo] MemoExistsAction=1 MemoMissingAction=1 DetermineBlocksize=0 UserDefinedBlocksize=64 MemoDisplayMaxInKB=8 MemoDisplayMaskNulls=TRUE GenerateOrphansTable=TRUE OrphansForMemos=TRUE OrphansForGenerals=FALSE MemoLengthThreshold=0 [Index] ValidateFields=TRUE ValidateFunctions=TRUE GenerateReindexCode=TRUE FunctionCount=105 Function0=! Function1=ALIAS Function2=ALLTRIM Function3=AND Function4=ANSITOOEM Function5=ASC Function6=AT Function7=ATC Function8=ATCLINE Function9=ATLINE Function10=BETWEEN Function11=BINTOC Function12=BOF Function13=CEILING Function14=CHR Function15=CHRSAW Function16=CHRTRAN Function17=CMONTH Function18=CTOBIN Function19=CTOD Function20=CTOT Function21=DATE Function22=DATETIME Function23=DAY Function24=DBF Function25=DELETED Function26=DIFFERENCE Function27=DMY Function28=DOW Function29=DTOC Function30=DTOR Function31=DTOS Function32=DTOT Function33=EMPTY Function34=EOF Function35=FIELD Function36=HOUR Function37=IIF Function38=INLIST Function39=INT Function40=ISALPHA Function41=ISDIGIT Function42=ISLOWER Function43=ISUPPER Function44=LEFT Function45=LEN Function46=LIKE Function47=LOOKUP Function48=LOWER Function49=LTRIM Function50=MAX Function51=MDY Function52=MIN Function53=MINUTE Function54=MOD Function55=MONTH Function56=NOT Function57=OCCURS Function58=OEMTOANSI Function59=ON Function60=OR Function61=PAD Function62=PADC Function63=PADL Function64=PADR Function65=PAYMENT Function66=PI Function67=PROPER Function68=PV Function69=RAND Function70=RAT Function71=RATLINE Function72=RECCOUNT Function73=RECNO Function74=RECSIZE Function75=RELATION Function76=RIGHT Function77=ROUND Function78=RTOD Function79=RTRIM Function80=SEC Function81=SECONDS Function82=SEEK Function83=SIGN Function84=SIN Function85=SOUNDEX Function86=SPACE Function87=SQRT Function88=STR Function89=STRTRAN Function90=STUFF Function91=SUBSTR Function92=SYS Function93=TAG Function94=TAN Function95=TARGET Function96=TIME Function97=TRANSFORM Function98=TRIM Function99=TTOC Function100=TTOD Function101=TYPE_6 Function102=UPPER Function103=VAL Function104=YEAR [Colors] Color0=0x00D926C7 Color1=0x00EA8AE0 Color2=0x00EAA515 Color3=0x00F5D99C Color4=0x00E6427B Color5=0x00F2A2BE Color6=0x00B0E6FF Color7=0x00B0FFEC Color8=0x0000FF80 Color9=0x00C0C0C0 Color10=0x00B0E6FF Color11=0x00B0FFEC Color12=0x00D7FF6A Color13=0x00E3FF9B Color14=0x00FFBA75 Color15=0x00FFCD9B Color16=0x008080FF Color17=0x0080FFFF Color18=0x0080FF80 Color19=0x00FFFF80 Color20=0x00FF8000 Color21=0x00C080FF Color22=0x004AA8FD Color23=0x00FFFF80 Color24=0x00FF8000 Color25=0x00B0B0FF Color26=0x004BA09C Color27=0x0083C5C1 Color28=0x00FFCD9B Color29=0x00FFBA75 Color30=0x00E3FF9B Color31=0x00D7FF6A Color32=0x0000FFFF Color33=0x0080FF80 Color34=0x00A0FFA0 HiLightFactor=0x00DFDFDF [Advanced] BadCharReplacement=46 DefaultColumns=16 UIResponse=3 ValidDeleteClear=32 ValidDeleteSet=42 FieldWarningMask=0x0000 DebugMode=FALSE EnableALF=TRUE EnableDataScan=TRUE UseInternationalCS=FALSE CSEngFirst=000000000000000087FFFFFE07FFFFFE00000000000000000000000000000000 CSEngOther=0000000003FF000087FFFFFE07FFFFFE00000000000000000000000000000000 CSIntFirst=000000000000000087FFFFFE07FFFFFE07FFFFFF0000003F0000000000003FFF CSIntOther=0000000003FF000087FFFFFE07FFFFFE07FFFFFF0000003F0000000000003FFF [FF5Tools] LastXFPFile= DefaultXfpPath=>Has any body used Foxfix 5.2.