[marcoszorrilla]

En Clipper te pongo un ejemplo:

Código Delphi [-]
FUNCTION ABREFICH(nModo)
       IF nModo == 1
       DbUseArea(.T.,,cCamino+cFichero,cAlias,.T.)
       ELSE
       DbUseArea(.T.,,cCamino+cFichero,cAlias,.F.)
                IF NETERR()
                lPacked:=.F.
                ELSE
                lPacked:=.T.
                END
       END
RETURN(nil)

Un Saludo.