تنظیم محل foxuser

[mostafaalizadeh]

PROCEDURE setFoxuser
LPARAMETERS lfoxuserDir
IF ADIR(Aname,lfoxuserDir,"D")=0
MD &lfoxuserDir
ENDIF
DELETE FILE (lfoxuserDir+"\foxuser.*")
CREATE TABLE lfoxuserDir+"\Foxuser" (Type C(12),ID C(12),NAME M(4),READONLY L(1),CKVAL N(6),DATA M(4),UPDATED D(8))
USE
SET RESOURCE TO lfoxuserDir+"\Foxuser.dbf"
ENDPROC