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