****** * Please note that params are without extension, no control for that ****** procedure DbBackupOnline lparameters cDbName, cNewName r1 = fopen(cDbName+".dbc") && Just readonly access r2 = fopen(cDbName+".dct") r3 = fopen(cDbName+".dcx") w1 = fcreate(cNewName+".dbc") w2 = fcreate(cNewName+".dct") w3 = fcreate(cNewName+".dcx") =fcopy(r1,w1) =fcopy(r2,w2) =fcopy(r3,w3) function fcopy lparameters nReadHandle, nWriteHandle do while !feof(nReadHandle) =fwrite(nWriteHandle,fread(nReadHandle,512)) enddo =fclose(nReadHandle) =fclose(nWriteHandle)