Rétablir les Droits Windows

Il arrive souvent que les droits réseau sous Windows "sautent".
Si par exemple le client lance une réindexation (optimisation) alors que le logiciel est ouvert sur un autre poste...

La fonction Fattribue de windev ne semble pas toujours fonctionner.

Cette procédure utilise la fonction CALCS de Windows pour rétablir de façon rapide les droits sur les fichiers.

Code (Text):

Sablier(Vrai)
    HFerme("*")
   
    CheminDossier = CheminDatas
    Nfic = fOuvre(fRepExe()+"\Utilitaires\DROITS_CACLS.CMD",foCréation)
    SI Nfic <> -1 ALORS
        fEcritLigne(Nfic,"** DROITS **" + CheminDossier+"\*.*")
        ResListeFichier = fListeFichier(CheminDossier+"\*.*", frNonRécursif )
        POUR TOUTE CHAÎNE UnFichier DE ResListeFichier SEPAREE PAR RC
            fEcritLigne(Nfic,"cacls "+""""+AnsiVersOem(ExtraitChaîne(UnFichier,1))+""""+" /E /T /G ""Tout le monde"":R ")
            fEcritLigne(Nfic,"cacls "+""""+AnsiVersOem(ExtraitChaîne(UnFichier,1))+""""+" /E /T /G ""Tout le monde"":W ")
            fEcritLigne(Nfic,"cacls "+""""+AnsiVersOem(ExtraitChaîne(UnFichier,1))+""""+" /E /T /G ""Tout le monde"":C ")
            fEcritLigne(Nfic,"cacls "+""""+AnsiVersOem(ExtraitChaîne(UnFichier,1))+""""+" /E /T /G ""Tout le monde"":F ")
        FIN
        fFerme(Nfic)
    FIN      
   
    Multitâche(100)
   
    nPID = LanceAppli(fRepExe()+"\Utilitaires\DROITS_CACLS.CMD", exeBloquant)
    SI ErreurDétectée ALORS  
        Erreur()
    SINON
        info("Les droits sur les fichiers ont été appliqués.")
    FIN