| //#Déclaration de collection de procédure
GLOBAL
sListeUsers est une chaîne
eNbUsers est un entier
//#####################################################
PROCEDURE ListeLOK(Repertoire)
//Liste les fichiers LOK
eNbUsers = fListeFichier(ComplèteRep(Repertoire)+"*.*",Login)
//Supprime le dernier RC
sListeUsers = sListeUsers[[1 A Position(sListeUsers,RC,0,DepuisFin)-1]]
RENVOYER sListeUsers
//#####################################################
PROCEDURE Login(Repertoire,Fichier,Change)
//Teste si le fichier est locké
SI fOuvre(Repertoire+Fichier,foBloqueEcriture)=-1 ALORS
//Récupére le login
sListeUsers = sListeUsers+ INILit("LOCK", "LOGIN", "", Repertoire+Fichier)+RC
SINON
//LE fichier peut être supprimé.
fSupprime(Repertoire+Fichier)
FIN
| |
|